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SEQ 0001 


_ REM e 


1'DENTIF | CATION 

PRODUCT CODE: MAINDEC-11-02ZDUU-8-0 

PRODUCT NAME: DUVI! OFFLINE COMBINED TIMING & INTERRUPT TESTS 
RELEASE DATE: NOV. 1977 

MAINTAINER : DIAGNOSTICS 


_ REM a 


COPYRIGHT (C) 1977 
DIGITAL EQUIPMENT CORPORATION, MAYNARD MASS. 


THE INFORMATION IN *HIS DOCUMENT 1S SUBJECT TO CHANGE WITHOUT NOTICE AND 
SHOULD NOT BE CONSTRUED AS A COMMITMENT BY DIGITAL EQUIPMENT CORPORATION. 
DIGITAL EQUIPMENT CORPORATION ASSUMES NO RESPONSIBILITY FOR ANY ERRORS 
THAT MAY APPEAR IN THIS DOCUMENT. 


THE SOFTWARE DESCRIBED IN THIS DOCUMENT 1S FURNISHED UNDER A LICENSE AND 
MAY ONLY BE USED OR COPIED IN ACCORDANCE WITH THE TERMS OF SUCH LICENSE. 


DIGITAL EQUIPMENT CORPORATION ASSUMES NO RESPONSIBILITY FOR THE USE OF 
RELIABILITY OF ITS SOFTWARE ON EQUIPMENT THAT IS NOT SUPPLIED BY DIGITAL. 
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.REM & 
GENERAL DESCRIPTION 


THIS DIAGNOSTIC CAN CHAIN 16 DUV11'S. THIS MEANS THAT 

16 DEVICES CAN BE SEQUENTIALLY EXERCISED. THE DIAGNOSTIC 
MAKES ONE PASS BEFORE PROCEEDING TO THE NEXT DEVICE, 

a phcra: EXERCISING ALL DEVICES IN THIS FASHION UNTIL 


_ REM 
THE DUV11 OFFLINE COMBINED TIMING AND INTERRUPT TESTS 
VERIFY THAT THE TRANSMITTER AND RECEIVER CAN CORRECTLY 
TALK TO EACH OTHER. INTERRUPT LOGIC AND PRIORITY LEVEL 
7VECTOR ADDRESSES ARE ALSO VERIFIED 


_ REM 
REQUIREMENTS 


PDP-11703 COMPUTER (LSI) 
DUV11 SYNCRONOUS/iSOCRONOUS OPTION 
ONE CONSOLE TELETYPE OR EQUIVALENT 


STORAGE 
THE PROGRAM LOADS INTO 4K OF MEMORY WITH BOOTSTRAP 


LOADING PROCEDURE 
THE STANDARD PROCEDURE FOR LOADING ABSOLUTE BINARY TAPES 


1S TO BE USED. 

STARTING ADDRESS 
FOR ABSOLUTE LOADER 

4K 017500 

8K 037500 

12K 057500 

16K 077500 

20K 117500 

24K 137500 

28K 157500 


STARTING PROCEDURE 
CONTROL SWITCH SETTINGS 


NOTE: ALL SWITCHES RESIDE INTERNAL TO THE CPU AT ADDRESS 
176. THESE MAY BE SET VIA THE CONSOLE TTY BY DIRECTLY 
MODIFYING LOC. 176. 


NOTE: RUNNING UNDER APT-11, THERE IS A USER SWITCH REGISTER 
CALLED "SUSWR". IN ORDER TO BE FLEXIBLE ON THE AVAILIBILITY OF THE 
H31S CONNECTOR. ONE BIT PASSES STATUS TO APT-11. 
BIT O IN SUSWR REFLECTS THIS STATUS. 9 0 = CONNECTOR 


SEQ 0002 
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PRESENT. A 1 = CONNECTOR NOT AVAILIBLE. 

THE USER CHANGES THE CONTENTS OF THIS LOCATION 
WHEN BUILDING THE E TABLE. BY ANSWERING THE 
PROMPT “SWITCH 2”. < 


AFTER PROGRAM LOAD CINITIAL PROGRAM START) 
ALL CONSOLE SWITCHES DOWN 


TO MODIFY DEVICE VECTOR AND CONTROL REGISTER ADDRESSES 
AFTER PROGRAM RESTART OR TO RUN MULTIPLE DEVICES 


SWC0=1 

TO START PROGRAM AT SELECTED TEST AFTER A PROGRAM RESTART 
(ONLY IN SINGLE DEVICE TESTS) 

SWO1=1 

TO LOCK ON SELECTED TEST AFTER A PROGRAM RESTART 
(ONLY IN SINGLE DEVICE TESTS) 

SW14=1 

NOTE1: IN GENERAL SWO1 WILL BE USED WHEN SW1i4=1 IS USED 

NOTE2: WITHOUT SWO1=1 “LOCK ON TEST" WILL DEFAULT TO TEST 1 

STARTING ADDRESS 

THE STARTING ADDRESS FOR ALL TESTS !S 000200 

THE RETARTING ADDRESS FOR ALL TESTS tS 000200 

THE STARTING ADDRESS TO ENTER A SELECTED TEST 1S 000200 

THE STARTING ADDRESS TO LOCK ON TEST {1S 000200 

PROGRAM AND/OR OPERATOR ACTION 

INITIAL PROGRAM START 

4 3.1.1 LOAD PROGRAM INTO MEMORY WITH ABSOLUTE LOADER 

4 3.1.2 SET SWITCH REGISTER (LOC. 176) TO ZERO. 

4 3.1.3 TYPE 2006. 


4. 3.1.4 PROGRAM WILL START. 


4. 3.1.5 THE PROGRAM WILL TYPE “DUV11 DZ2D0UJU-B TAPE E”“ CONCE ONLY) 
4. 3.1.6 THE PROGRAM WILL TYPE “R" TO INDICATE THAT IT 1S ABOUT 

to START TESTING .AND THEN TESTING WILL BEGIN 

PROGRAM RESTART WITH ALL SWITCHES DOWN 

4 3.2.1 THE PROGRAM WILL TYPE "R”" AND WILL COMMENCE TESTING 


_ REM 


. REM 


SEQ 0003 


DZDUU-B MACY11 30(1046) 
15-SEP-77 10:13 


PROGRAM 
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4.3.3 


4 3.3. 
4. 3.3. 
8. 3. 2. 
4.3.3. 


4. 3.3. 


i 


2 
3 
4 


4.3.3.6 
FROM THE TELETYPE KEYBOARD 


INPUT 


4. 3. 3. 


? 


10 
REGISTER ADDRESS-" AND WAIT FOR AN INPUT FROM THE TELETYPE KEYBOARD 


TYPE IN THE.ADDRESS OF THE LAST RECEIVER CONTROL REGISTER 
ADDRESS OF THE DUV11 TO BE TESTED FOLLOWED BY A <CARRIAGE RETURN> 


11 


3. 11. 
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RESTART WITH SWOO=1 — 

SET SWITCH REGISTER (LOC. 176) TO A OO00N1. 
TYPE 2006. 

PROGRAM WILL START. 


THE PROGRAM WILL TYPE “ 1ST DEVICE: RECEIVER CONTROL REGISTER 


ADDRESS” AND WAIT FOR AN INPUT FROM THE TELETYPE KEYBOARD 
TYPE IN THE ADDRESS OF THE FIRST RECEIVER CONTROL 


REGISTER ADDRESS OF THE DUV11 TO BE TESTED 
FOLLOWED BY A <CARRIAGE RETURN> 


IF AN INCORRECT ADDRESS IS TYPED . THE PROGRAM WILL TYPE "?" 
AND WILL THEN REPEAT THE MESSAGE OF 4.3.3.4 
THE PROGRAM WILL TYPE “VECTOR ADDRESS-" AND WAIT FOR AN 


TYPE IN THE BASE RECEIVER INTERRUPT VECTOR ADDRESS 
FOR THE DUV11 TO BE TESTED FOLLOWED BY A <CARRIAGE RETURN> 


1F AHN INCORRECT ADDRESS IS TYPED . THE PROGRAM WILL TYPE "?" 
AND WILL THEN REPEAT THE MESSAGE OF 4. 3.3.6 


THE PROGRAM WILL TYPE “ARE YOU RUNNING MULTIPLE DEVICES ?" 
(Y OR N)-" AND WAIT FOR AN INPUT FROM THE TELETYPE KEYBOARD 


TYPE IN THE APPROPRIATE ANSWER YES OR NO FOLLOWED BY A 
<CARRIAGE RETURN> 


IF AN INCORRECT ANSWER IS GIVEN, THE PROGRAM WILL TYPE “?” 
AND WILL THEN REPEAT THE MESSAGE OF 4.3.3.8 


IF A “NO” ANSWER 1S GIVEN: JUMP TO SECTION 4. 3.3.12 
IF A "YES" ANSWER IS GIVEN: THE NEXT QUESTIC!. 1S ASKED 
THE PROGRAM WILL TYPE “LAST DEVICE: RECEIVER CONTROL 


IF AN INCORRECT ANSWER IS TYPED . THE PROGRAM WILL TYPE “?” 
AND WILL THEN REPEAT THE MESSAGE OF 4. 3. 3.10 
NOTE: ALL ADDRESSES SHALL BE CONTIGUOUS 


IF AN “OUT OF RANGE” ADDRESS IS TYPED 
E. MORE THAN 16 (10) DEVICES AWAY (CUPWARDS)..... THE 


SEQ 0004 
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PROGRAM WILL TYPE “OUT OF RANGE: RETYPE LAST DEVICE RXCSR ADDRESS-" 
AND WAIT FOR AN INPUT FROM THE TELETYPE KEYBOARD 


43.3.11.2 TYPE IN THE ADORESS OF THE LAST RECEIVER CONTROL 
REGISTER ADDRESS OF THE DUV11 TO BE TESTED FOLLOWED 
BY A <CARRIAGE RETURN> 


IF AN INCORRECT ANSWER IS TYPED . THE PROGRAM WILL TYPE "?" 
AND WILL REPEAT THE MESSAGE OF 4.3.3. 11.1 


IF A DEVICE ADDRESS LOWER THAN 1ST DEVICE ADORESS IS TYPED........... 
» OOMOCLS GUT........, THERE 1S NO PROTECTION FOR THIS. 

THE PROGRAM WILi DEFAULT TO TWO DEVICES ACTIVE (UPWARTS FROM 

1ST DEVICE ADDRESS). THE SAME APPLIES TO IDENTICAL ADURESSES 

TYPED FOR FIRST AND LAST DEVICE. 

OBSERVE LOCATION @ ACTREG: SEE SECTION 7.2 


me © & | THE PROGRAM WILL TYPE “# OF SYNC CHARS 
SELECTED (1 OR 2)-" AND WAIT FOR AN INPUT FROM THE TELETYPE 
KEYBOARD. REFER TO MANUAL FOR PROPER SWITCH SETTINGS OF 


SWITCH E55-4. 
so te TYPE IN THE APPROPRIATE ANSWER “1” OR "2" FOLLOWED 
a iS yee RETURN>. (NOTE: ALL MULTIPLE DEVICES MUST 
iH ME ) 


IF AN INCORRECT ANSWER IS TYPED . THE PROGRAM WILL TYPE "?” 
AND WILL REPEAT THE MESSAGE OF 4. 3.3.12 


4. 3.3.14 THE PROGRAM WILL TYPE “ 1S SEC XMIT SWITCH E55-2 ON? (Y OR N)-" 
AND WAIT FOR AN INPUT FROM THE TELETYPE KEYBOARD 
4 3.3.15 TYPE IN THE APPROPRIATE ANSWER YES OR NO FOLLOWED 


BY A <CARRIAGE RETURN>. (NOTE THAT ALL MULTIPLE DEVICES 
MUST BE THE SAME) 


IF AN INCORRECT ANSWER IS TYPED . THE PROGRAM WILL TYPE “?” 
AND WILL REPEAT THE MESSAGE OF 4. 3. 3.14 


4. 3.3.16 THE PROGRAM WILL TYPE “IS SEC REC SWITCH E55-3 ON? 
(Y OR N)-" AND WAIT FOR AN INPUT FROM THE TELETYPE KEYBOARD 
4. 3.3.17 TYPE IN THE APPROPRIATE ANSWER YES OR NO FOLLOWED 


BY A <CARRIAGE RETURN>. (NOTE: ALL MULTIPLE DEVICES MUST BE THE SAME) 
IF AN INCORRECT ANSWER IS TYPED . THE PROGRAM WILL TYPE “?” 
AND WILL REPEAT THE MESSAGE OF 4. 3. 3.16 


THE PROGRAM WILL TYPE “IS OPT CLR ENABLE SWITCH 
E5S5-1 ON? (Y OR N)-" AND WAIT FOR AN INPUT FROM THE TELETYPE KEYBOARD 


DZDUU-B MACY11 30(104%6) 
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3. 19 TYPE IN THE APPROPRIATE ANSWER YES OR NO FCLLOWED 
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4.3.4 


4.3.5 


4. 3. 


4. 3. 3. 20 
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BY A <CARRIAGE RETURN>. (NOTE: ALL MULTIPLE DEVICES MUST BE THE SANE) 


IF AN INCORRECT ANSWER IS TYPED . THE PROGRAM WILL TYPE “2” 
AND WILL REPEAT THE MESSAGE OF 4. 3. 3.18 


THE PROGRAM WILL TYPE “ARE YOU RUNNING IN MAINT. 
MODE EXTERNAL ? AND...... DO YOU HAVE THE EXTERNAL MODEM 
BYPASS JUMPER CONNECTOR ON ? (Y OR N)-" AND WAIT FOR AN 
INPUT FROM THE TELETYPE KEYBOARD 


21 TYPE IN THE APPROPRIATE ANSWER YES OR NO FOLLOWED BY 


A <CARRIAGE RETURN>. (NOTE: ALL MULTIPLE DEVICES MUST BE THE SAME) 


IF AN INCORRECT ANSWER IS TYPED . THE PROGRAM WILL TYPE “?" 
AND WILL REPEAT THE MESSAGE OF 4. 3. 3.20 


4. 3.3.22 THE PROGRAM WILL TYPE “R" TO INDICATE THAT IT 


HAS STARTED AND WILL COMMENCE TESTING AT TEST 1 


PROGRAM RESTART WITH SWO1i=1 
NOTE: THIS WILL ONLY WORK WHEN A SINGLE DEVICE IS SELECTED 
7 \1T WILL NOT WORK IF MULTIPLE DEVICES ARE SELECTED 


IF MULTIPLE DEVICES WERE PREVIOUSLY SELECTED.LOAD 000200. 
AND SELECT SWOO=1 AND ANSWER “NO" TO THE MULTIPLE DEVICE QUESTION 
SEE 


4. 


y 
4. 
y 


3.4 
3.4. 
3.4 
3.4 


4.3.3 
.1 SET SWO1=1 IN SWITCH REG (LOC. 176) 
2 TYPE 200G. 
. 3 PROGRAM WILL START. 
.4 THE PROGRAM WILL TYPE “TEST PC-" AND WAIT FOR AN INPUT FROM 
THE TELETYPE KEYBOARD 
4S TYPE IN THE ADDRESS OF THE TEST AT WHiCH THE PROGRAM IS TO 
BE STARTED FOLLOWED BY A <CARRIAGE RETURN> 
4.6 THE PROGRAM WILL TYPE “R" TO INDICATE THAT IT HAS STARTED 


TESTING AT THE SELECTED TEST 


NOTE: CARE MUST BE TAKEN WHEN THIS FEATURE IS USED 
,SINCE THERE 1S NO PROTECTION AGAINST SELECTING AN ADDRESS 
THAT 1S IN THE MIDDLE OF A TEST 


PROGRAM RESTART WITH SW1i4 =1 

NOTE: THIS WILL ONLY WORK WHEN A SINGLE DEVICE IS SELECTED 
SEE NOTE IN 4. 3.4 FOR MORE DETAILS 

4.3.5.1 SET SWi4=1 IN SWITCH REG. (LOC. 176) 


4.3.5.2 TYPE 2006. 


SEQ 0006 
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4. 3.5. 3 PROGRAM WILL START. 


4.3.5.4 THE PROGRAM WILL TYPE “LOCK ON SELECTED TEST ? (Y OR N)-" 
AND WAIT FOR AN INPUT FROM THE TELETYPE KEYBOARD 


4.3.5.5 TYPE IN THE APPROPRIATE ANSWER YES OR NO FOLLOWED BY A 
CCARRIAGE RETURN) 


IF A NO ANSWER IS GIVEN: THIS LOCK ON TEST WILL BE IGNORED 
AND THE PROGRAM WILL TYPE "R" TO INDICATE THAT IT HAS STARTED 
TESTING AT TEST 1 


4.3.5.6 IF A YES ANSWER WAS GIVEN: THE PROGRAM WILL ACT AS FOLLOUWS... 
THE PROGRAM WILL TYPE “R" TO INDICATE THAT IT HAS STARTED 
TESTING AT TEST 1 AND WILL REMAIN IN TEST 1 UNTIL HALTED 
OR IF ANY KEY 1S STRUCK ON THE TELETYPE . THE PROGRAM 
WILL FREEZE ON THE NEXT TEST UNTIL A KEY IS STRUCK ON 
THE TELETYPE AND SO FORTH THRU THE PROGRAM. IF SWO1 =1 IT 
WILL PERFORM AS IN SECTION 4.3.4 ALLOWING ONE TO FREEZE 
ON A SELECTED TEST RATHER THAN DEFAULTING TO TEST 1 


OPERATING PROCEDURE 


OPERATIONAL SWITCH SETTINGS (INTERNAL TO THE CPU, ACCESSED VIA LOC. 176). 
HALT ON ERROR 


SW15 =1 

SW14 =1 LOOP ON CURRENT TEST 

SW13 =1 INHIBIT ERROR TYPEOUT 

SW1i1 =1 INHIBIT ITERATIONS 

SW10 =1 ESCAPE TO NEXT TEST ON ERROR 

SWO9 =1 LOOP ON ERROR 

SWO1 =1 RESTART PROGRAM AT SELECTED TEST 

SWOO =1 RESELECT VECTOR AND CONTROL REGISTER ADRESSES 
BPARAMETERS AFTER A PROGRAM RESTART 

TO INHIBIT “END OF PASS" TYPEOUT - TURN TELETYPE OFF 


ERRORS 


ERROR HALTS (UNDER LS! ALL HALT ERRORS RETURN CONTROL TO 0.D.T. ) 
THERE ARE FOUR DISTINCT ERROR TYPEOUTS 


PC+2 = ERROR PC 
WHERE PC +2 1S THE ADDRESS OF THE CALL TO THE ERROR HANDLER +2 


REFER TO THE ABOVE “HLT” IN DIAGNOSTIC FOR ERROR DESCRIPTION 


CHECK ADDRESS @ RXCSR: TO LOCATE THE DEVICE PRESENTLY UNDER 
TEST WHEN RUNNING MULTIPLE DEVICES 


PC +2 = REGISTER ERROR PC 
REGISTER EXPECTED ACTUAL 
16XXXX YYYYYY 222222 


WHERE 16XXXX 1S THE ADDRESS OF THE FAILING DEVICE REGISTER 


SEQ 0007 
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WHERE YYYYYY IS THE EXPECTED CONTENTS OF THAT REGISTER 

WHERE 222222 1S THE ACTUAL CONTENTS OF THAT REGISTER 

PC +2 = RECEIVER ERROR PC 

REGISTER EXPECTED ACTUAL 

16XXXX YYYYYY 222222 

WHERE 16XXXX 1S THE ADDRESS OF THE FRILING RECEIVER (RXDBUF) REGISTER 
WHERE YYYYYY IS THE EXPECTED DATA CONTENTS OF THAT REGISTER 

WHERE 222222 1S THE ACTUAL DATA CONTENTS OF THAT REGISTER 

PC #2 = TRANSMITTER ERROR PC 

REGISTER EXPECTED ACTUAL 

16XXXX YYYYYY 222222 

WHERE 16XXXX IS THE ADDRESS OF THE FAILING TRANSMITTER (TXCSR) REGISTER 
WHERE YYYYYY |S THE EXPECTED CONTENTS OF THAT REGISTER 

WHERE 222222 |S THE ACTUAL CONTENTS OF THAT REGISTER 


ERROR DESCRIPTIONS 
SEE LISTINGS FOR DETAILS OF ERRORS © 


ERROR RECOVERY 


SWi5 =0 
IF THE PROGRAM 1S RUN WITH SW15 =O .NO OPERATOR ACTION IS 
REQUIRED TO CONTINUE TESTING 


SW15 =1 

IF THE PROGRAM IS RUN WITH SWiS =1 .TO CONTINUE TESTING 
AFTER THE PROGRAM HAS HALTED . PRESS THE PROCESSOR 
CONSOLE “CONTINUE SWITCH" 


NOTE: THE PC + 2 OF THE “HLT” WILL BE DISPLAYED IN THE DATA LIGHTS 


ILLEGAL INTERRUPTS 

IF AN INTERRUPT OCCURS TO A VECTOR ADDRESS NOT SELECTED 
DURING PROGRAM INITIALIZATION. THE PROGRAM WILL HALT IN 
THE TRAPCATCHER. THE ADDRESS AT WHICH THE PROGRAM 

HALTS IS 2 GREATER THAN THE ADDRESS TO WHICH THE INTERRUPT 
OCCURED. THE PROGRAM MUST BE RESTARTED AT 000200 TO 
RECOVER FROM THIS ERROR. 


ADDITIONAL TROUBLESHOOTING AIDS ERRCNT: & PASCNT: 


CHECK THESE TWO TAG LOCATIONS FOR TOTAL # OF ERRORS AND PASSES RESPECTIVELY. 


LOADING 000200 AND RESTARTING WILL CLEAR THESE LOCATIONS. 


END OF PASS ROUTINE 
THIS TYPEOUT 1S MENTIONED HERE FOR CONVENIENCE 
IT 1S IN THE FORM: 


SEQ 0008 
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7.2.2 


ra 


AF 
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END OF PASS TAPE Y 
16XXXX = DEVICE 


WHERE Y IS THE TAPE LOADED 

WHERE 16XXXX IS THE DEVICE'S BASE REGISTER ADDRESS 
TO INHIBIT THIS TYPEOUT - TURN TELETYPE OFF 
RESTRICTIONS 


MULTIPLE DEVICES 
UP TO 16(10) DEVICES MAY BE TESTED. HOWEVER. THEY 
MUST HAVE CONTIGUOUS ADDRESSES AND VECTORS 


NOTE: IF ALL DEVICES UNDER TEST HAVE THE SAME INTERRUPT VECTOR 
YOU CAN CHANGE "ZERO: ADD #10,.BASEIV +NEXT BLOCK 
(VECTORS)" TO “ZERO: ADD #0, BASE IV"; 

THEREBY THE VECTOR ADDRESSES WILL NOT BE 

UPDATED AFTER EACH PASS. 


DISQUALIFYING DEVICES WHEN RUNNING MULTIPLE DEVICES 


WHEN RUNNING MULTIPLE DEVICES AN ACTIVE BIT IS SET 
FOR EACH DEVICE RUNNING UNDER TEST IE. BIT O FOR 
DEVICE O .,BIT 15 FOR DEVICE 15 

TO DISQUALIFY DEVICES: 


IF DEVICE O IS TO BE DISQUALIFIED .SIMPLY RESTART 
PROGRAM WITH SWOO =1 AND OMIT THE FIRST DEVICE. 


IF HOWEVER, DEVICES 1 THRU 15 OR ANY COMBINATION THEREOF 
ARE TO BE DISQUALIFIED....LOAD THE LOCATION OF ACTREG: 
OBSERVE THE ACTIVE BITS (ACTIVE =1, NONACTIVE = 0) 

AND DEPOSIT O WHERE THOSE DEVICES ARE TO BE DISQUALIFIED 


7.2.2.1 TO RESTART... TYPE 2006. 


THE PROGRAM WILL CONTINUE WITH THE DEVICE IT WAS IN BEFORE HALTING. 
oh tt Seapiee "eee SET SWOO=1 IN SWITCH REG (LOC. 176) AND TYPE 200G.... 


ANSWER THE QUESTION :1ST DEVICE : ETC........... 
.... THE PROGRAM WILL CONTINUE WITH DEVICE 0 


7.2.2.3 IF ALL DEVICES ARE DISQUALIFIED BY MISTAKE THE PROGRAM 
WILL TYPEOUT AN ERROR MESSAGE....... TYPE 2006. 


CABLE DELAYS 
NOTE: EXTERNAL LOOP BACK TESTS ONLY (MODEM CABLE WITH H315 CONNECTOR ON) 


TO PROVIDE SUFFICIENT DELAY FOR CLOCK SIGNAL OVER THE CABLE. 
LOCATION “HOLD: “ MUST BE MODIFIED TO ACCOMODATE FOR FASTER MACHINES. 
PRESENTLY “HOLD: =20 1S SUFFICIENT TIME ON AN 11703 MACHINE. 


BASICALLY DON'T TRY TO EXCEED 10K TO 12K RATE USING THE EIA DRIVERS 


SEQ 0009 
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10. 
11. 


TO USE THE “XOR" TESTER . THE BRANCH AROUND THE “XOR" 
CODE MUST BE PATCHED TO A "NOP". (SEE LISTINGS FOR DETAILS) 


DEFAULT PARAMETERS: 
1ST DEVICE: RECEIVER CONTROL REGISTER ADDRESS- RXCSR: 160010 


VECTOR ADORESS- DURIV: 770 
ARE YOU RUNNING MULTIPLE DEVICES ?- NO MULTD: 0 
LAST DEVICE: RECEIVER CONTROL REGISTER ADORESS- LASTADD: 0 
# OF SYNC CHARS SELECTED - 2 SYNCNO: 377 

IS SEC XMIT SWITCH E55-2 ON?- YES SEXMIT: 3277 

IS SEC REC SWITCH ES5-3 ON?- YES SEREC: “377 


1S OPT CLR ENABLE SWITCH E55-1 ON?- YES OPTCLR: 377 


DO YOU HAVE THE EXTERNAL MODEM BYPASS JUMPER 
CONNECTOR ON (H315)- YES JMRBY: 377 


PROGRAM DESCRIPTION 


a 
_ REM 
THIS PROGRAM PERFORMS THE OFFLINE COMBINED (TRANSMITTER & RECEIVER) 
TIMING & INTERRUPT TESTING OF THE DEVICE 
SEE LISTING FOR DETAILS , 
. REM 


FLOW CHARTS: RECEIVER FLOW. TRANSMITTER FLOW. TRANSMITTER & RECEIVER FLOW 
LISTINGS 


SE@ 0010 
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537 000001 STN=1 
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001100 


000011 
000012 
000015 
000200 
177776 


177774 
177772 
177570 
177570 


000000 
000001 
000002 
000003 
000004 
000005 
000006 
000007 
000006 
000007 


000000 
000040 
000100 
000140 
000200 
000240 
000300 
000340 


100000 
040000 


Mm 1 
RAPT COMMUNICATIONS ROUTINE 
. ENABLE ABS 


+DUV11 OZDUU-B TAPE E 
+COPYRIGHT 1977, DIGITAL EQUIPMENT CORP... MAYNARD. MASS. 01754 


;STARTING PROCEDURE 
> TYPE 200G 

;PROGRAM WILL TYPE "DUV11 DZDUU-B TAPE E “ 

;PROGRAM WILL TYPE "R" TO INDICATE THAT TESTING HAS STARTED 
;AT THE END OF A PASS. PROGRAM WILL TYPE “END OF PASS TAPE E” 
;AND THEN RESUME TESTING 


.SBTTL BASIC DEFINITIONS 
a toa OF THE STACK POINTER 44% 1100 X%% 


STACK= 
;;BASIC DEFINITION OF ERROR CALL 


. EQUIV EMT. ERROR 
.EQUIV I0T, SCOPE +;BASIC DEFINITION OF SCOPE CALL 


;XMISCELLANEOUS DEFINITIONS 
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HT= 11 ;;CODE FOR HORIZONTAL TAB 

LF= 12 ;;CODE FOR LINE FEED 

CR= 15 ;;CODE FOR CARRIAGE RETURN 

CRLF= 200 ;;CODE FOR CARRIAGE RETURN-LINE FEED 
PS= 177776 ;;PROCESSOR STATUS WORD 


. EQUIV PS. PSW 
STKLMT= 177774 
PIRQ= 177772 


++STACK LIMIT REGISTER 

+; PROGRAM INTERRUPT REQUEST REGISTER 
DSWR= 177570 +;HARDWARE SWITCH REGISTER 

DDISP= 177570 +;HAROWARE DISPLAY REGISTER 


——"s PURPOSE REGISTER DEFINITIONS 
s %, 


.0 ;;GENERAL REGISTER 
Ri= %1 ;,GENERAL REGISTER 
R2= %2 ;;GENERAL REGISTER 
R3= %3 ;;GENERAL REGISTER 
R4¥= %4 ;;GENERAL REGISTER 
R5= %5 ;;GENERAL REGISTER 
R6= %6 ;>GENERAL REG'STER 
R7= %7 ;;GENERAL PTGISTER 
SP= %6 ;; STACK PUINTER 
PC= %7 ;;PROGRAM COUNTER 
;XPRIORITY LEVEL DEFINITIONS 
PRO= 0 ;; PRIORITY LEVEL O 
PRi= 40 ;;PRIORITY LEVEL 1 
PR2= 100 ;;PRIORITY LEVEL 2 
PR3= 140 ; PRIORITY LEVEL 3 
PR4= 200 ;;PRIORITY LEVEL 4 
PRS= 240 >; PRIORITY LEVEL 5 
PR6= 300 72PRIORITY LEVEL 6 
PR7= 340 ZZ; PRIORITY LEVEL 7 


;R"SWITCH REGISTER” SWITCH DEFINITIONS 
SW15= 100000 
SWi4= 40000 


SEQ 0012 
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020000 
010000 
004000 
002000 
001000 
000400 
000200 
000100 
000040 
000020 
000010 
000004 
00C002 
000001 


* 


100000 
040000 


000001 


000004 
000010 
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15 
BASIC DEFINITIONS 


SWi3=s 
SW12= 
SW1ii= 
SW1i0= 
SWO9= 
SWO8= 
SWO7= 
SWO06= 
SWO5= 
SWO4= 
SWO3= 
SWO2= 
SWO1= 
SWOO0= 
. EQUIV 
. EQUIV 
. EQUIV 
. EQUIV 
. EQUIV 


EQUIV — 


. EQUIV 
. EQUIV 
. EQUIV 
. EQUIV 


; XDATA 
BiT15= 


co 
4 
Cal 
= 
“ 


~“ 


; BASIC 
ERRVEC= 4 
RESVEC= 


SWO8, SHB 


SWOO, SHO 


B1T02,B1T2 
BiT01,.B1T1 
Bi TOO. B1TO 


BIT DEFINITIONS (B1TOO TO BIT15) 
00000 


Nhl TRAP VECTOR ADDRESSES 


10 


+, TIME OUT AND OTHER ERRORS 
>;RESERVED AND ILLEGAL INSTRUCTIONS 


SEQ 0013 


DZDUU-B MACY11 30(104%6) 


DZDUUB. M11 


31-MAY-77 O09: 50 


000240 


21-SEP-77 09:22 PAGE 16 
BASIC DEFINITIONS 


TBITVECS14 
TRTIVEC= 14 


TKVEC= 60 
TPVEC= 64 


PIRQVEC=240 


53 °T” BIT 

+, TRACE TRAP 

>; BREAKPOINT TRAP (BPT) 
Oasis TRAP (10T) Z#SCOPEXS 
;;EMULATOR TRAP (EMT) XXERRORZX 
;;"TRAP" TRAP 

>, TTY KEYBOARD VECTOR 

3; TTY PRINTER VECTOR 

;;PROGRAM INTERRUPT REQUEST VECTOR 


SEQ 0014 


DZDUU-B MACY11 30(104%6) 
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000174 
000176 


000200 


001100 
001102 


001104 
001106 
001110 
001112 
001114 
001116 


001120 


001144 


000174 
000000 
000000 
000200 
000167 


001100 
000000 
177570 


000000 
000000 
000000 
000090 
000000 
000000 


000020 
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31-MAY-77 09: 50 


001746 


BASIC DEFINITIONS 


.=174 


*+STANDARD INTERRUPT VECTORS 


DISPREG: O 


SWREG: 0 


. =200 


. 21100 


. WORD O 
LIGHTS: 177570 


RE TURN: 
NEXT: 
LOCK: 
PASCNT: 
ERRCNT: 
SAVSP: 


HOLD: 
SHIFT: 
COUNT: 
SAVPC: 
HLOO: 
HLD1: 
HLDO2: 
HLOS: 
HLD4: 
HLDS: 
HL D6: 


JMP 


+GO TO START OF PROGRAM 


+PROGRAM CONTROL PARAMETERS 


oOoo0o0o 


+ADDRESS OF NEXT TEST TO BE EXECUTED 
+ADDRESS FOR LOCK ON CURRENT DATA 
+ADDRESS CONTAINING PASS COUNT 
+ERROR COUNT 
+STACK POINTER STORAGE 


>PROGRAM VARIABLES 


i] 
Oo 


oOooooo000o 


+ TEMPORARY STORAGE=DELAY TIME FOR CABLES 

+ TEMPORARY STORAGE= # OF SHIFTS PER CHAR 

> TEMPORARY STORAGE= #& OF TIMES A CHAR WILL BE SENT 
*PROGRAM COUNTER STORAGE 


SEQ 0015 


DZDUU-B MACY11 30(1046) 


DZDUUB. M11 


001146 
001147 
001150 
001151 
001152 
001153 


001154 
001156 
001160 
001162 
001164 
001166 


001170 


001172 


001173 
001174 
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000000 
000000 
o0c000 
600000 
000000 
000000 


N00000 


000 
000 
000 
001176 
001400 


21-SEP-77 09:22 PAGE 1 


8 
BASIC DEFINITIONS 
+PROGRAN CONVERSATIONAL PARAMETERS 
.BYTE 3 +# OF SYNC 


ACTREG: 


ROTADD: 


INIFLG: 


STFLG: 


LOKFLG: 


. EVEN 
. =1400 


0 
377 


oOoo0ooo 


CHARS re 'D FOR SYNC * ZATION 
SEC XMIT JUMPER "I 
*SEC REC JUMPER “I 
OPTIONAL JUMPER CUR "iN" 
+NO MULTIPLE DEVICE FLAG 
sEXTERNAL MODEM BYPASS JUMPER “IN” 


- PROGRAM MULTIPLE DEVICE PARAMETERS 


+PROG CONTROLLED 1ST DEVICE ADOR 
»SAVED 1ST DEVICE ADDR 

+LAST DEVICE RXCSR ADOR 

+PROG CONTROLLED IV 

;SAVED INTR VECTOR 

;ACTIVE REGISTER ..-MODIFY THIS 
+LOCATION TO DISQUALIFY OR QUALIFY 
;DEVICES (1= RUN.,,O= DON'T RUN) 
;ROTATING POINTER FOR ACTREG. . POINTS 


0 
;TO DEVICE PRESENTLY UNDER TEST WHEN RUNNING MULTIPLE DEVICES 
>PROGRAM CONTROL FLAGS 


. BYTE 
. BYTE 
. BYTE 


0 
0 
0 


;PROGRAM INITIALIZATION FLAG 
+ TEST START FLAG 
+;LOCK ON CURRENT TEST FLAG 
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DZDUUB. M11 31-MAY-77 09:5 BASIC DEFINITIONS SEQ 0017 
751 
752 
753 
— , + INSTRUCTION DEFINITIONS 
756 005746 PUSH1SP=5746 +DECREMENT PROCESSOR STACK 1 WORD =TST -(SP) 
757 005726 POP 1SP=5726 + INCREMENT PROCESSOR STACK 1 WORD =TST (SP)+ 
758 010046 PUSHRO= 10046 +SAVE RO ON STACK =MOV RO. -(SP) 
759 012600 POPRO=12600 *RESTORE RO FROM STACK =MOV (SP)+,RO 
760 O24646 PUSH2SP=24646 ;DECREMENT STACK TWICE =CMP -(SP),-(SP) 
761 022626 POP 2SP=22626 + INCREMENT STACK TWICE =CMP (SP)+, (SP)+ 
762 *REGISTER DEFINITIONS 
763 +RXCSR BIT DEFINITIONS 
764 100000 OSC=B1T15 *DATA SET CHANGE 
765 040000 RING=B1T14 *+RING 
766 020000 CTS=BIT13 *CLR TO SEND 
767 010000 CARDET=B1T12 *CARRIER DETECT 
768 004000 RECACT=BIT11 >REC ACTIVE 
769 002000 SRD=B81T10 +SEC REC DATA 
770 001000 OSR=B1T9 +DATA SET RDY 
771 000400 STPSYN=B1T8 +STRIP SYNC 
772 000200 RXDONE=B 1 T7 *REC DONE 
773 000100 RINTEN=B1T6 *REC INTR ENABLE 
774 000040 OS INTE=BITS +OSC INTR ENABLE 
775 000020 SYNSCH=B 1 T4 +SYNC SEARCH 
776 000010 STO=BITS +SEC XMIT DATA 
777 000004 RTS=B1T2 +REQ@ TO SEND 
778 000002 DTR=B1T1 *DATA TERM RDY 
779 000001 vOID=B1TO 
780 +RXOBUF BIT DEFINITIONS 
781 100000 RXERR=B1T15 *REC ERROR 
782 040000 OVRRUN=61T14 + OVERRUN 
783 020000 FRMERR=B1T13 *+FRAME ERROR 
784 010000 PARER=B17T12 +PARITY ERROR 
785 *PARCSR BIT DEFINITIONS 
786 001000 . PAREN=B1T9 >PARITY ENABLE 
787 000400 EVPAR=BIT8 +EVEN PARITY SENSE 
788 +PARCSR WROD DEFINITIONS 
789 030000 SYNINT=30000 +SYNC EXTERNAL MODE 
790 020000 SYNE XT=20000 *SYNC INTERNAL MODE 
791 ISYMOD=0 > 1SOC MODE 
792 000000 FIVE=0 +WORD LENGTH 5 BITS 
793 002000 $1X=2000 +WORD LENGTH 6 BITS 
794 004000 SE VEN=4000 +WORD LENGTH 7 BITS 
795 006000 E |GHT=6000 +WORD LENGTH 8 BITS 
796 000000 NOPAR=0 +NO PARITY 
797 001000 ODDPAR= 1000 +000 PARITY 
798 001400 EVEPAR=1400 sEVEN PARITY 
799 >TXCSR BIT DEFINITIONS 
800 100000 DNA=B1T15 *DATA NOT AVAILABLE 
801 040000 MTDATA=B1T14 *MAINT DATA 
802 020000 CLK=BIT13 + CLK 
803 002000 Bi TW=B1T10 +BIT WINDOW 
804 MRESET=B1T8 +MASTER RESET 
805 000200 TXDONE =B 1 T7 +XM1T DONE 
806 000100 TXINTE=BIT6 >XMIT INTR ENABLE 
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DZDUUB. M11 31-MAY-77 O09: 50 BASIC DEFINITIONS 
807 000040 ONAINTE=B1TS +DNA INTR ENAB 
808 000020 SEND=B1T4 + SEND 
809 000010 HDOXEN=BIT3 + HOX/F DX 
810 000001 BREAK=B1T0 > BREAK 
811 +TXCSR WRO DEF INITIO 
812 000000 USER=0 + USE 
813 004000 MINT=4000 +MAINT INT MODE 
814 010000 MEXT=10000 +MAINT EXT MODE 
815 014000 SYSTST=14000 +SYSTEM TEST MODE 
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SEQ 0018 
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001400 
001400 
001402 
001403 
001404 
001406 
001410 
001412 
001414 
001415 
001416 
001420 
001422 
001424 
001426 
001430 
001432 
001434 
001435 
001436 
001440 
001442 
001444 
001446 
001450 
001452 
001454 
001455 
001456 
001457 
001460 


001462 


001400 
000000 


177607 
077 
015 


21-SEP-77 09:22 PAGE 21 
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.SBTTL COMMON TAGS 


++ REXSAAAAAAALAAALALA SAL AAAAAAA AAA AAA AAA AAA AAA AAA AAA AAA AAA AS 
+%THIS TABLE CONTAINS VARIOUS COMMON STORAGE LOCATICNS 


31-MAY-77 O09: 50 


000377 


+XUSED IN THE PROGRAN. 


SCNTAG: a ;;START OF COMMON TAGS 
STSTNM: .BYTE OQ ;; CONTAINS THE TEST NUMBER 
SERFLG: .BYTE OQ +; CONTAINS ERROR FLAG 
SICNT: .WORD OQ 3; CONTAINS SUBTEST ITERATION COUNT 
SLPADR: .WORD 0 ;; CONTAINS SCOPE LOOP ADDRESS 
SLPERR: .WORD OQ >; CONTAINS SCOPE RETURN FOR ERRORS 
SERTTL: .WORD O ;; CONTAINS TOTAL ERRORS DETECTED 
SITEMB: .BYTE O ;; CONTAINS ITEM CONTROL BYTE 
SERMAX: . BYTE 1 >; CONTAINS MAX. ERRORS PER TEST 
SERRPC: .WORD 0 ;; CONTAINS PC OF LAST ERROR INSTRUCTION 
S$GDADR: .WORD 0 +; CONTAINS ADDRESS OF ‘GOOD’ DATA 
SBDADR: .WORD OQ ;; CONTAINS RODRESS OF ‘BAD’ DATA 
S$GDDAT: .WORD OQ ;; CONTAINS ‘GOOD’ DATA 
SBDDAT::.WORD O ;;CONTAINS ‘BAD' DATA 

a : ;;RESERVED--NOT TO BE USED 
SAUTOB: .BYTE 0 ;; AUTOMATIC MODE INDICATOR 
S$ INTAG: pee : >, INTERRUPT MODE INDICATOR 

.W 
SUR: .WORD OSWR ;;ADDRESS OF SWITCH REGISTER 
DISPLAY: .WORD ODISP ;;ADDRESS OF DISPLAY REGISTER 
STKS: 177560 +; TTY KBD STATUS 
STKB: 177562 +; TTY KBO BUFFER 
S$TPS: 177564 ;; TTY PRINTER STATUS REG. ADDRESS 
STPB: 177566 >; TTY PRINTER BUFFER REG. ADDRESS 
SNULL: .BYTE O ;; CONTAINS NULL CHARACTER FOR FILLS 
SFILLS: . BYTE 2 ;; CONTAINS # OF FILLER CHARACTERS REQUIRED 
SFILLC: . BYTE 12 >; INSERT FILL CHARS. AFTER A “LINE FEED” 
STPFLG: .BYTE OQ >; "TERMINAL AVAILABLE” FLAG (B1T<07>=0=YES) 
SREGAD: .WORD OO ;; CONTAINS THE ADDRESS FROM 

;;WHICH (S$REGO) WAS OBTAINED 

SREGO: .WORD O ;; CONTAINS ((SREGAD)+0) 
SREGi1: .WORD O ;; CONTAINS ((SREGAD)+2) 
SREG2: .WORD O >; CONTAINS ((SREGAD) +4) 
SREG3: .WORD O +; CONTAINS ((SREGAD) +6) 
SREG4Y: .WORD O ;; CONTAINS ((SREGAD)+10) 
SREGS: .WORD O >; CONTAINS ((SREGAD) +12) 
STMPO: .WORD O ;,USER DEFINED 
STMP1: .WORD O ;,USER DEFINED 
STMP2: .WORD OQ ;,USER DEFINED 
STMP3: .WORD OQ ;;USER DEFINED 
STMP4: .WORD O ;;,USER DEFINED 
STMPS: .WORD 0 ;,USER DEFINED 
STIMES: O ;;MAX. NUMBER OF ITERATIONS 
SESCAPE: 0 ;;ESCAPE ON ERROR ADDRESS 


SBELL: .ASCIZ 207><377><377> :; CODE FOR BELL 
SQUES: .ASCII /2?/ ;; QUESTION MARK 
SCRLF: .ASCII <15> >; CARRIAGE RETURN 


SEQ 0019 
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001524 


001526 
001526 
001530 
001532 
001534 
001536 
001540 
001542 
001544 
001546 
001546 
001547 
001550 
001552 
001554 


001556 
001557 


001560 


000012 


000000 


000000 
000000 


000 
000 
000000 
000000 
CO00000 


000 
000 


000000 
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COMMON TAGS 


SLF: 


ASCIZ +LINE FEED 
STITT TTT EET 


<12> 


.SBTTL APT MAILBOX-ETABLE 
4 ere ap eign mame cee pla ereme lemming TR: 


: , BYTE 
- . BYTE 


ANSGTY 
AF ATAL 


AMSGLG 


RENV 
RENVM 
ASWREG 
RUSWR 
ACPUOP 


ANANS 1 
ANTYP 1 


AMADOR 1 


AMANSZ 
ANTYPZ 


;;APT MAILBOX 
+; MESSAGE TYPE CODE 
;;FATAL ERROR NUMBER 
+; TEST NUMBER 
;,PASS COUNT 
;;DEVICE COUNT 
+; 170 UNIT NUMBER 
+; MESSAGE ADDRESS 
;;MESSAGE LENGTH 
;;APT ENVIRONMENT TABLE 
+; ENVIRONMENT BYTE 
>; ENVIRONMENT MODE BITS 
;,APT SWITCH REGISTER 
;;USER SWITCHES 
;;CPU TYPE. OPTIONS 
BITS 15-11=CPU TYPE 
11/04=01, 11/05=02. 11/20=03. 11740=04, 11745=05 
11/70=06, PDQ=07, Q=10 
BIT 10=REAL TIME CLOCK 
B!T 9=FLOATING POINT PROCESSOR 
BIT S8=MEMORY MANAGEMENT 
;;HIGH ADORESS.MS. BYTE 
;;MEM. TYPE. BLK@1 
MEM. TYPE BYTE -- (HIGH BYTE) 
900 NSEC CORE=001 
300 NSEC BIPOLAR=002 
500 NSEC MOS=003 
;;HIGH ADDRESS. BLK#!1 
MEM. LAST ADDR. =3 BYTES. THIS WORD AND LOW OF “TYPE” ABOVE 
;>HIGH ADDRESS.M.S. BYTE 
;; MEM. TYPE. BLK#2 
>; MEM. LAST ADDRESS. BLK&2 
;; HIGH ADDRESS. FM. S. BYTE 
;; MEM. TYPE. BLK&3 
>; MEM. LAST ADDRESS. BLK&3 
;;HIGH ADDRESS. S. BYTE 
>; MEM. TYPE. BLK&4 
;; MEM. LAST ADDRESS. BLK&4 
>; INTERRUPT VECTOR#1,.BUS PRIORITY#1 
>; INTERRUPT VECTOR&Z2BUS PRIORITY&2 
;;BASE ADDRESS OF EQUIPMENT UNDER TEST 
;,DEVICE MAP 
>; CONTROLLER DESCRIPTION WORD#1 
>,CONTROLLER DESCRIPTION WORD&2 
;;DEVICE DESCRIPTOR WORD&O 
;-DEVICE DESCRIPTOR WORD#1 
;;DEVICE DESCRIPTOR WORDE2 
;;DEVICE DESCRIPTOR WORDS3 
;;DEVICE DESCRIPTOR WORD&4 
;;DEVICE DESCRIPTOR WORD&#S 


i 


SEQ 0020 
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001626 


001650 


001652 


31-MAY- 
000000 


000000 
000000 
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APT MAILBOX-ETABLE 


? 09: 50 


SDDWI5: . 


SE TEND: 


RADOW15 


;,DEVICE 
++ DEVICE 
+,DEVICE 
+, DEVICE 
>, DEVICE 


+, DEVICE 


DESCRIPTOR WORD#6 
DESCRIPTOR WORD#7 
DESCRIPTOR WORDSS 


DESCRIPTOR WORD#11 
DESCRIPTOR WORD#1Z 
DESCRIPTOR WORD#13 
DESCRIPTOR WORD#14 
DESCRIPTOR WORD#15 


SEQ 0021 
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DZDUUB. M11 31-MAY-77 09: 50 APT MAILBOX-ETABLE SEQ 0022 
944 
945 
946 
as + INSTRUCTION DEFINITIONS 
949 005746 PUSH1SP=5746 ;DECREMENT PROCESSOR STACK 1 WORD =TST -(SP) 
950 005726 POP 1SP=5726 + INCREMENT PROCESSOR STACK 1 WORD =TST (SP)+ 
951 010046 PUSHRO= 10046 +SAVE RO ON STACK =MOV RO. -(SP) 
952 012600 POPRO=12600 sRESTORE RO FROM STACK =MOV (SP)+,R0 
953 024646 PUSH2SP=24646 ;DECREMENT STACK TWICE =CMP -(SP),-(SP) 
954 022626 POP 2SP=22626 +; INCREMENT STACK TWICE =CMP (SP)+, (SP)+ 
955 *REGISTER DEFINITIONS 
956 +RXCSR BIT DEFINITIONS 
957 100000 OSC=B1T15 +DATA SET CHANGE 
958 040000 RING=B1T14 RING 
959 020000 CTS=BIT13 +CLR TO SEND 
960 010000 CARDET=B1T12 > CARRIER DETECT 
961 004000 RECACT=B1T11 +REC ACTIVE 
962 002000 SRO=B1T10 *SEC REC DATA 
963 001000 DSR=B1T9 *DATA SET*RDY 
964 000400 STPSYN=B1T8 +STRIP SYNC 
965 000200 RXDONE=B1T7 +REC DONE 
966 000100 RINTEN=B1T6 *REC INTR ENABLE 
967 000040 OS INTE=B1TS *DSC INTR ENABLE 
968 000020 SYNSCH=B1T4 *+SYNC SEARCH 
969 000010 STO=BITS +SEC XMIT DATA 
970 000004 RTS=B1T2 ;REQ TO SEND 
971 000002 DTR=BiT1 ;DATA TERM RDY 
972 000001 vO1ID=B1TO 
973 +RXDBUF BIT DEFINITIONS 
974 100000 RXERR=B1T15 REC ERROR 
975 040000 OVRRUN=B1T14 + OVERRUN 
976 020000 FRMERR=BIT13 +FRAME ERROR 
977 010000 PARER=B1T12 ;PARITY ERROR 
978 ;PAPCSR BIT DEFINITIONS 
979 001000 PAREN=B1T9 +PARITY ENABLE 
980 000400 EVPAR=B1T8 >EVEN PARITY SENSE 
981 ;PARCSR WRO DEFINITIONS 
982 030000 SYNINT=30000 +SYNC EXTERNAL MODE 
983 020000 SYNE XT=20000 >SYNC INTERNAL MODE 
984 000000 ISYMOD=0 + 1SOC MODE 
985 000000 FIVE=0 >WORD LENGTH 5 BITS 
986 002000 S$ 1X=2000 +WORD LENGTH 6 BITS 
987 004000 SE VEN=4000 +WORD LENGTH 7 BITS 
988 006000 E |GHT=6000 +WORD LENGTH 8 BITS 
989 000000 NOPAR=0 +NO PARITY 
990 001000 ODDPAR=1000 +000 PARITY 
991 001400 EVEPAR=1400 sEVEN PARITY 
992 ;TXCSR BIT DEFINITIONS 
993 100000 DNA=B1T15 +DATA NOT AVAILABLE 
994 040000 MTDATA=B1T14 ;MAINT DATA 
995 020000 CLK=BIT13 > CLK 
996 002000 BITW=B1T10 >BIT WINDOW 
997 000400 MRESET=BITS *MASTER RESET 
998 000200 TXDONE =B 1 T7 +XMIT DONE 


999 000100 TXINTE=B1T6 >XMIT INTR ENABLE 


DZDUU-B MACY11 pel ty 1 


DZDUUB. M11 31-MAY- 


1000 000040 
1001 000020 
1002 000010 
1003 000001 
1004 

1005 000000 
1006 004000 
1007 010000 


1008 014000 


21-SEP-77 09:2 
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APT MAILBOX-ETABLE 


DNAINTE=B1TS +ONA INTR ENAB 
SEND=B1T4 + SEND 
HOXEN=B1T3 + HOX/F OX 
BREAK=B1T0O + BREAK 

+TXCSR WRO DEFINITIONS 
USER=0 +USER MODE 
MINT=4000 +MAINT INT MODE 
ME XT=10000 ;MAINT EXT MODE 
SYSTST=14000 + SYSTEM TEST MODE 


SEQ 0023 
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051105 
041520 
047503 
051511 
051122 
020116 


ERROR POINTER TABLE 


.SBTTL ERROR POINTER TABLE 


+3THIS TABLE CONTAINS THE INF 
+3THE INFORMATION IS . aomte’t 


+SLOCATION SITENB. THIS NUMBER 


; RNOTE1: 
> SNOTE2: 


SERRTB: 


sERROR MESSAGES 


.ASCIZ 


.ASCIZ 7 COMPARISON ERROR 


ania FOR EACH ERROR THAT CAN — 
THE INDEX NUMBER FOUND | 

ATES WHICH ITEM IN THE TABLE 1S PERTINENT. 
IF SITEMB IS O THE ONLY PERTINENT DATA IS (SERRPC). 

EACH ITEM IN THE TABLE CONTAINS 4 POINTERS EXPLAINED AS FOLLONS: 


;;POINTS TO THE 
;;POINTS TO THE 


ERROR MESSAGE 
DATA HEADER 


+;POINTS TO THE DATA 


++POINTS TO THE 


EM1 >ERROR 1 
DH1 
OT1 
DF 1 
EN2 sERROR 2 
DH1 
OTi 
OF 1 
ENS ;ERROR 3 
DH1 
OT1 
DF 1 
, ;ERROR 4 
OT4 
DF 1 
;DEFAULT DU ADDRESSES 
160010 
160011 
160012 
160013 
: 160012 
160013 
160014 
: 160015 
: 160016 
160017 
;DEFAULT DU VECTORS 
770 ;REC INTR VECTOR 
772 ;REC INTR STATUS 
774 ;XMIT INTR VECTOR 
776 ;XMIT INTR STATUS 


7 ERROR PC / 


DATA FORMAT 


REGISTER ERROR 


RECEIVER ERROR 


TRANSMITTER ERROR 


BIT ERROR (GENERAL ) 


ON REGISTERS/ 


SEQ 0024 
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002067 
002074 
002102 
002110 


002116 
002124 
002126 


002132 
002135 


000046 
000052 


000024 
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051105 
051117 


105 
020040 
042105 
052524 
002116 


001416 
000000 


001416 


000 
000 


002136 
000046 
012714 
000052 
000000 
002136 


002136 
000024 
000200 
000044 
0021 36 
002136 


21-SEP-77 O09: 
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052123 


042522 
051105 
051117 
052040 
044515 
042440 

000 


051122 
040527 


020040 
046101 


001130 


000000 
000 


051105 
042503 


052124 
051122 


041520 
052116 
041501 

000 


001132 


000 


22 


PAGE 27 
ERROR POINTER TABLE SEQ 0025 


EN2: .ASCIZ 7 RECEIVER ERROR/ 
EMS: .ASCIZ 7 TRANSMITTER ERROR/ 
;DATA HEADERS FOR ERROR MESSAGES 
DH1: .ASCIZ ZERRPC WANTED ACTUALZ 
. EVEN 
;DATA TABLES FOR ERROR MESSAGES 
OT1: .WORD SERRPC,HLOO. HLD1,0 
OT4: .WORD SERRPC,.O 
DF 1: ; BYTE 0, 0, 0. 0 
EVEN 


/SBTTL ACT11 HOOKS , 


> RAXAAAAAATA AAA AAA AAA A AAA AAA AAA AAA AAA AAA A AAA AAA AAA AAA AAAS 
+>HOOKS REQUIRED BY ACTI1 


ssuPce SAVE PC 
SENOAD :;1)SET LOC. 4@ TO ADORESS OF SENDAD IN . SEOP 
"WORD OO 5; 2)SET LOC. 52 TO ZERO 


. =SSVPC +2 RESTORE PC 
_SBTTL APT PARAMETER BLOCK 


>; RERASAAARAAAARALALA AAA AT AAAAA AAA AA AAA AAA AAA AAA AAA AAA AAA AAT 
;SET LOCATIONS 24 AND 44 AS REQUIRED FOR APT 
>; REXAAAAARATAAAALAAA AAA AAAAAAA AAA AAA AAA AAA AAA AAA AAA TTTTy 


. SX. ++ SAVE CURRENT LOCATION 
. =24 +;SET POWER FAIL TO POINT TO START OF PROGRAM 
200 +,FOR APT START UP 
. 44 +;POINT TO APT INDIRECT ADDRESS PNTR. 
SAPTHDR ;; POINT TO APT HEADER BLOCK 
=.$X ;;RESET LOCATION COUNTER 


PETTITT TTT ETTTETT TTT TERETE 
pete Ae, — BLOCK AS DEFINED IN THE APT-PDP11 DIAGNOSTIC 
+ IN , 


SAP THD: 

SHIBTS: .WORD O ;; TWO HIGH BITS OF 18 BIT MAILBOX ADOR. 

SMBADR: .WORD SNAIL ;;: ADDRESS OF APT MAILBOX (BITS 0-15) 

STSTM: .WORD 10 ;;RUN TIM OF LONGEST TEST 

SPASTM: .WORD 10 ;7RUN TIME IN SECS. OF 1ST PASS ON 1 UNIT (QUICK VERIFY) 

SUNITM: . WORD ;; ADDITIONAL RUN TIME (SECS) OF A PASS FOR EACH ADDITIONAL UNIT 
WORD SETEND-SMAIL/2 ;; LENGTH MAILBOX-ETABLE (WORDS) 
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1121 
1122 
1123 


002152 


002152" 


002156 
002160 
002164 
002166 


062172 
002200 


012706 
005026 
022706 
001374 
012706 


012737 
012737 
012737 
012737 
012737 
012737 
012737 
012737 
005067 
005067 
112767 
012767 
012767 


013746 
012737 
012767 
012767 
022777 
001012 


001403 
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001400 
001440 
001100 


016340 
000340 
014230 
000340 
016674 
000340 
015032 
000340 
177234 
177232 
000001 
002270 
002276 


000004 
002344 
177570 
177570 
177777 


002352 
000176 
000174 
000004 


177136 
000200 


176535 


000020 
000022 
000030 
000032 
000034 
000036 
000024 
000026 


177125 
177110 
177104 


000004 
177114 
177110 
177100 


177060 
177054 


177143 
177024 


000024 


. START: 
. SBTTL 


+; CLEAR 


*+PROGRAM INITIALIZATION 
+LOCK OUT INTERRUPTS 
*+SET UP PROCESSOR STACK 
+SET UP POWER FAIL VECTOR 

*+CLEAR PROGRAM CONTROL FLAGS AND COUNTS 
+ TYPE TITLE MESSAGE 


INITIALIZE THE COMMON TAGS 
THE COMMON TAGS (SCNTAG) AREA 


MOV 


MOV 


RSCNTAG, R6 


(R6)+ 
— ++ DONE? 


##STACK, SP 


>; INITIALIZE A FEW VECTORS 


#SSCOPE, d# IOTVEC 


++FIRST LOCATION TO BE CLEARED 
++CLEAR MEMORY LOCATION 


++LOOP BACK IF NO 


++SETUP THE STACK POINTER 
++ 10T VECTOR FOR SCOPE ROUTINE 


#340. SBIOTVEC+2 (LEVEL 7 


#SERROR, SSENTVEC 
#340, QSENTVEC+2 
#STRAP, OETRAPVEC 
#340, SS TRAPVEC+2 
RSPWRON, OSPWRVEC 
#340, O#PWRVEC+2 
STIMES 

SESCAPE 

#1, SERMAX 

#. , SLPADR 


M #. , SLPERR 
+7SIZE FOR A HARDWARE SWITCH REG 


;;EQUAL TO A "-1", 


64S: 
653: 
665: 


675: 


MOV 


Q#ERRVEC, - (SP) 
#645. OKERRVEC 
RDSWR, SHR 
#001SP,O1SPLAY 
#-1, OSWR 

66$ 


65% 
#65S, (SP) 


#SWREG. SHR 
#DISPREG. DISPLAY 
(SP)+, A#ERRVEC 


SPASS 
#APTSIZE. SENVN 
67$ 
8SSWREG. SHR 
#STACK, SP 

#340 


#. PFRIL, d&24 
STFLG 


+7EMT VECTOR FOR ERROR ROUTINE 
;+LEVEL 7 

+; TRAP VECTOR FOR TRAP CALLS 
;LEVEL 7 

>-POWER FAILURE VECTOR 

;+LEVEL 7 

+; INITIALIZE NUMBER OF ITERATIONS 


+;CLEAR THE ESCAPE ON ERROR ADDRESS 
+,ALLOW ONE ERROR PER TEST 

++ INITIALIZE THE LOOP ADDRESS FOR SCOPE 
+,SETUP THE ERROR LOOP ADDRESS 

ISTER. IF NOT FOUND OR IT IS 


SETUP FOR A SOFTWARE SWITCH REGISTER. 


;;SAVE ERROR VECTOR 

>+SET UP ERROR VECTOR 

++SETUP FOR A HARDWARE SWICH REGISTER 
;,AND A HARDWARE DISPLAY REGISTER 

+2 TRY TO REFERENCE HARDWARE SWR 
+;BRANCH IF NO TIMEOUT TRAP OCCURRED 
+>;AND THE HAROWARE SWR IS NOT = -1 
;;BRANCH IF NO TIMEOUT 

>2SET UP FOR TRAP RETURN 


++POINT TO SOFTWARE SWR 
++RESTORE ERROR VECTOR 


;;CLEAR PASS COUNT 

+, TEST USER SIZE UNDER APT 
+; YES.USE NON-APT SWITCH 
+;NO,. USE APT SWITCH REGISTER 


+SET STACK 

>LOCK INTERRUPTS 

+SET UP POWER FAIL VECTOR 
*CLEAR START FLAG 


SEQ 0026 


DZDUU-B MACY11 30(104%6) 


DZ0UUB. M11 





0024 36 
002442 


002464 
002472 


31-MAY-77 


005067 


012767 


013746 
013746 
012737 
005777 
000407 


016767 


09: 5 


176450 
176735 
176740 
176740 
000001 
002152 


000006 
000004 
002516 
176724 


000176 
000174 


000004 
000005 
000176 


000042 


000522 
010224 
176374 


01£172 
176362 
176732 


000001 


176321 
000452 
000001 


0004 36 
000300 
000302 
000004 


001000 


014242 
014102 
176216 


000004 
176714 
176710 


176666 


176726 


176574 


176226 
176212 


2i- oe -77? Q9:22 PAGE 29 


B 3 


INITIALIZE THE COMMON TAGS 


1$: 


23: 


335: 
3$: 


ONCE: 


. BYTE 
. BYTE 


167776 


PASCNT ; CLEAR PASS COUNT 

SERFLG ;CLEAR ERROR FLAG 

SERTTL ;CLEAR ERROR COUNT 

SERRPC ;CLEAR LAST ERROR POINTER 

#1. STSTNM ;SET UP FOR TEST 1 

#. START. RETURN ;SET UP FOR POWER FAIL BEFORE 
> TESTING STARTS 

d#6, - (SP) 

oe4, - (SP) 

#15, d#4 

ASHR 

2$ 

#SWREG, SW 


R 
#D1SPREG,. DISPLAY 
(SP)+, (SP)¢ 
(SP)+, d84 
(SP) +, d#6 
#SWREG. SWR 


+CHECK FOR CHAIN 


;HAS INITIALIZATION BEEN PERFORMED 


+ TYPE TITLE MESSAGE 

; 1F NOT SET FLAG AND DO 
;APT CONTROL? 
11% >BR IF NO 


#1, SUSWR ; EXTENAL JUMPER ON? 
JMRBY > CLEAR FLAG 

BEGIN ;60 DO 

#SHOO, aSHR RESELECT VECTOR & CONTROL REG? 
1 

BEGIN 


8300,RO ;RESTORE VECTOR AREA TO TRAPCATCHER 
#302.R1 ;START AT LOCATION 300 

#4,R2 

Ri, (RO) 

(R1) 

R2.RO0 

R2,R1 

#1000. R1 +END AT LOCATION 776 


23 
; OUTPUT MESSAGE & GET INPUT STRING 
; MESSAGE 

; CONVERT STRING 

;LOW LIMIT 

;HIGH LIMIT 

;STORE AT THIS LOCATION 

; MASK 

;HOW MANY TIMES + 2 

DUBASE.KEEPADD ; SAVE 

PC, DUADOR 

KEEPADD. BASEADD ; RESTORE FOR ROTATION 


SEQ 0027 





Cc 3 
DZ0UU-B MACY11 30(104%6) 21- ~ -77 Q9:22 PAGE 


30 
INITIALIZE THE COMMON TAGS 


DZDUUB. M11 31-MAY-77 09:5 SEQ 0028 
1233 002742 104406 INSTR ;OUTPUT MESSAGE & GET INPUT STRING 
1234 002744 015225 MVECTO ch 
1235 002746 104410 PARAN ;CONVERT STRING 
1236 002750 000300 300 sLOW LIMIT 
1237 002752 000776 776 +HIGH LIMIT 
1238 002754 001736 DUR IV + STORE AT THIS LOCATION 
1239 002756 001 .BYTE 1 MASK 
1240 002757 .BYTE 4% ; HOW MANY TIMES + 2 
1241 002760 016767 176752 176176 MoV DUR IV. KEEP IV + SAVE 
1242 002766 016767 176744 176166 MoV DUR IV, BASE IV ;SET UP FOR ROTATION 
1243 002774 104406 INSTR ;OUTPUT MESSAGE & GET INPUT STRING 
1244 002776 015270 MMULT ; MESSAGE 
1245 003000 104414 SETFLG ;SET FLAG BASED UPON INPUT STRING 
1246 003002 001152 MULTD ; THIS FLAG 
1247 O03004 105767 176142 TSTB MULTD ;ARE THERE MULTIPLE DEVICES 
1248 ON THE SYSTEM 
1249 003010 100406 BNI BBB + YES. ASK NEXT QUESTION 
1250 003012 005067 176150 CLR ACTREG 
1251 003016 005067 176146 CLR ROTADD 
1252 003022 000167 000140 JMP OUTMUL ; JUMP AROUND NEXT QUESTION 
1253 003026 BBB: 
1254 003026 104406 INSTR ;OQUTPUT MESSAGE & GET INPUT STRING 
1255 003030 015317 MLASTO ; MESSAGE 
1256 003032 104410 PARAM ;CONVERT STRING 
1257 003034 160000 160000 -;LOW LIMIT 
1258 003036 167776 167776 ;HIGH LIMIT 
1259 003040 001160 LASTADD ; STORE AT THIS LOCATION 
1260 003042 001 .BYTE 1 ; MASK 
1261 OO03043 001 .BYTE 1 +HOW MANY TIMES + 2 
1262 ; THE FOLLOWING ROUTINE SETS UP ACTREG FOR THE FIRST TIME 
1263 OO304% 012767 OO0001 176116 1%: MOV #1,ROTADD +SET UP POINTER 
1264 003052 005067 176110 CLR ACTREG 7CLR ACTIVE REGISTER 
1265 003056 056767 176106 176102 2%: BIS ROTADD,ACTREG -;MAKE THIS DEVICE ACTIVE 
1266 003064% 000241 CLC 
1267 003066 006167 176076 ROL ROTADD ;SET UP POINTER 
1268 003072 103421 BCS 3$ +ARE YOU OUT OF RANGE ? 
1269 003074 062767 000010 176052 ADD #10, BASERDD +SET UP BASE ADDRESS 
1270 003102 026767 176052 176044 CMP LASTADD. BASEADD ; IS THIS THE LAST DEVICE 7? 
1271 003110 101362 BHI 2$ +NO DO IT AGAIN 
1272 003112 056767 176052 176046 BIS ROTADD.ACTREG ; THIS ASSUMES THAT THERE ARE AT 
1273 ;LEAST TWO DEVICES WHEN YOU ANSWER YES TO 
1274 ;MULTIPLE DEVICE QUESTION 
1275 003120 012767 000001 176042 4S: MoV #1,.ROTADD +SET UP FOR LATER USE IN END OF PASS ROUTINE 
1276 003126 016767 176024 176020 MoV KEEPADD. BASEADD - DITTO 
1277 003134 000414 BR OUTMUL ; CONT I NUE QUESTIONS 
1278 003136 016767 176014 176010 433%: MoV KEEPADD. BASEADD ; RESTORE 
1279 OO3144 104406 INSTR ;OUTPUT MESSAGE & GET INPUT STRING 
1280 003146 015413 MRANGE ; MESSAGE 
1281 003150 104410 PARAN ;CONVERT STRING 
1282 003152 160000 160000 -;LOW LIMIT 
1283 003154 167776 167776 ;HIGH LIMIT 
1284 003156 001160 LASTADD ; STORE AT THIS LOCATION 
1285 003160 001 .BYTE 1 > MASK 
1286 003161 001 .BYTE 1 ;HOW MANY TIMES + 2 
1287 003162 000167 177656 JMP 1$ ;D0 IT AGAIN 
1288 003166 012767 OO00340 013636 OUTMUL: MOV #340, DUPRT 


DZDUU-B MACY11 30(104%6) 
31-MAY-77 O9: SO 


DZDUUB. M11 


003174 


003200 
003200 


004767 


104406 
015631 
122767 
001003 
105067 
000412 
122767 
001004 
112767 
000402 
104407 
000757 
000240 
104406 
015677 
104414 
001147 
104406 
015750 
104414 
001150 
104406 
016020 
104414 
001151 
104406 
016077 
104414 
001153 


012706 
106427 
032777 
001413 
104406 


21-SEP-77 O09: 


013562 


000061 
175726 
000062 
177777 


001100 
000340 
000002 


176030 


003374 
015557 
175510 


012760 


012742 
175706 


176112 


175530 
175520 


22 PAGE 


31 


0 3 


INITIALIZE THE COMMON TAGS 


33: 
1$: 


23: 
4S: 


. BEGIN: 


. BYTE 
. BYTE 


35: 
4S: 


JSR 


+ COMPARE 


> BUFFE 


> iF THE 
; IF THE 


; TEST: START AND RESTART 


MOV 
MTPS 
BIT 
BEQ 
INSTR 
MTSTPC 
PARAM 
TST1 
17500 
STSTNM 
1 

1 

MOV 

BR 

MoV 
TYPE 
JMP 


R TO THE 


PC, DULEV 
THE FIRST CHARACTER IN THE TELETYPE INPUT 
CHARACTERS "1" AND "2". 


CHARACTER IS "1" CLEAR THE FLA 
CHARACTER 1S "2" SET THE FLAG 


, 


#'1, INBUF 


1$ 
SYNCNO 
4§ 


; 000 


#' 2, INBUF 
2$ 
— 


$ 
>RETRY 
3$ 


> OUTPUT MESSAGE 
> MESSAGE 
+SET FLAG BASED 


>; THIS FLAG 


*OUTPUT MESSAGE 
+ MESSAGE 
+SET FLAG BASED 


>; THIS FLAG 


;OUTPUT MESSAGE 
+ MESSAGE 
+SET FLAG BASED 


> THIS FLAG 


+ OUTPUT MESSAGE 
+ MESSAGE 
;SET FLAG BASED 


+> THIS FLAG 


#STACK. SP 


#340 


y 
#SWO1, ASWR 


3$ 
; OUTPUT MESSAGE 
; MESSAGE 

>; CONVERT STRING 


*LOW LIMIT 
+HIGH LIMIT 
+;STORE AT THIS LOCATION 


; MASK 


;QUTPUT MESSAGE & GET INPUT STRING 
; MESSAGE 


se ty “O" FT 


a: 2) iw oe 
+377 


& GET INPUT STRING 
UPON INPUT STRING 
& GET INPUT STRING 
UPON INPUT STRING 
& GET INPUT STRING 
UPON INPUT STRING 
& GET INPUT STRING 
UPON INPUT STRING 


*SET UP STACK 
*LOCK OUT INTERRUPTS 
>1F SWO1=1, GET STARTING PC 


& GET INPUT STRING 


;HOW MANY TIMES + 2 


a temctiaaper 
#TST1,RETURN 
TR 

@RE TURN 


;START AT TEST 1 
; TYPE R 
>START TESTING 


SEQ 0029 


DZDUU-B MACY11 30(104%6) 
31-MAY-77 09: 50 


DZDUUB. M11 


1345 
1346 
1347 
1348 
1349 
1350 
1351 
1352 
1353 
1354 
1355 
1356 
1357 
1358 
1359 
1360 
1361 
1362 
1363 
1364 
1365 
1366 
1367 
1368 


003374 
003376 
003404 
003412 


003420 


003426 
003434 
003440 
OO3446 
003454 


OC0004 
052777 
012777 
052777 


012777 


012777 
016703 
112777 
012767 
012767 


052777 
042777 
005000 
006067 
103002 
052700 


052777 
042777 
017701 
042701 
020001 
001401 
104003 


005367 
001352 





eg 


21-SEP-77 09:22 PAGE 32 


000400 
000000 
000400 


004020 


0054 26 
176266 
000125 
001252 
000012 


02C000 
020uU00 


175774 
002000 


020000 
020000 
176174 
075777 


175352 


020000 
000000 
176136 
077777 


176322 
176310 
176306 


176300 


176266 
176264 
176024 
175440 


176236 
176230 


176206 
176200 


176146 


INITIALIZE THE COMMON TAGS 


+; THIS TEST VERIFYS CHARACTER PLUS PARITY GENERATION 
+-OF THE TRANSMITTER SECTION. 
++ 1T ALSO CHECKS DONA TIMING 


++ MODE: ISYMOD 
LENGTH SEVEN PLUS PARITY 
++PARITY: EVEPAR 


+; CHARACTER: 125 


;; SESERAEESSSUNEEESSSUEESSSUREESESASEE55 00000000020 509 00102000 
«BIS #MRESET, aTXCSR =MASTER RESET 
MOV #ISYMOD. APARCSR :SET THE MODE 
81S @MRESET. aTXCSR ; MASTER RESET 


>SET MAINTENANCE MODE & SEND 
NOTE: BIT WINDOWRCLK ARE CLEARED (MTDATA=0) 
MOV #MINT! SEND, ATXCSR 


;SET MODE.# OF BITS.PARITY SENSE.& LOAD SYNC REG 
MOV # ISYMOD! SEVEN! EVEPAR ! 26. @PARCSR 
MOV TXCSR, RS >SET UP FOR ERROR MSG 
MOVB #125. dTXOBUF +LOAD DATA CHAR 
MOV #1252, STMP1 >TO BE SHIFTED CHAR 


MOV #10... SHIFT ;# OF SHIFTS 
+POKE CLK TO GET INTO SYNCRONIZATION 
BIS #CLK, ATXCSR >POKE CLK UP 
BIC #CLK, ATXCSR +POKE CLK DOWN 
1$: CLR RO 
ROR STMP1 ;FORCE CARRY 
BCC 2$ >BR IF CARRY CLR 
= BIS #BITW. RO sEQUIV OF BITW 
BIS #CLK, ATXCSR +POKE CLK UP 
BIC #CLK, dTXCSR +POKE CLK DOWN 
MOV aTXCSR,.R1 + ACTUAL 
BIC #075777,R1 +SAVE BITW & DNA 
CMP RO.R1 ;COMPARE EXP VS ACT 
BEQ . +4 
ERROR 3 >BIT WINDOW DID NOT MATCH ACTUAL DATA 
-BIT.... ALSO CHECK DONA 
DEC SHIFT ;># OF SHIFTS 
BNE i$ +00 IT AGAIN ”? 
;NOW POKE CLK TO SEE DONA 
BIS #CLK, @TXCSR +POKE CLK 


MOV #0,.RQO ;EXPECTED 
MOV aTXCSR, R1 + ACTUAL 
BIC #77777,R1 +SAVE DNA ONLY 


CMP RO. R1 ; COMPARE EXP VS ACT 
BEQ +4 
ERROR 3 ;DNA SHOULD BE SET 


> 1F DONA DID NOT SET 
+CHECK WORD LENGTH SELECT LOGIC 


>; THIS TEST VERIFYS CHARACTER PLUS PARITY GENERATION 
;;0F THE TRANSMITTER SECTION. 
+7 1T ALSO CHECKS DONA TIMING 


SEQ 0030 


DZDUU-B MACY11 30(1046) 
31-MAY-77 O09: 50 


DZDUUB. M11 


1401 
1402 
1403 
1404 
1405 
1406 
1407 
1408 
1409 
1410 
1411 
1412 
1413 
1414 
1415 
1416 
1417 
1418 
1419 


003602 
003604 
003612 
003620 


003626 


003634 
003642 
003646 


000004 
052777 
012777 
052777 


012777 


012777 
016703 
112777 
012767 
012767 


052777 
042777 
005000 
006067 
103002 
052700 


052777 
042777 
017701 
042701 
020001 
001401 
104003 


005367 
001352 


052777 
012700 
017701 
042701 
020001 
001401 
104003 


21-SEP-77 Q9: 


000400 
000000 
000409 


004020 


005026 
176060 
000125 
001652 
000012 


020000 
020000 


17£566 
002000 


020000 
020000 
175766 
075777 


175144 


020000 
000000 
175730 
077777 


176114 
176102 
176100 


176072 


176060 
176056 
175616 
175232 


176030 
176022 


176000 
175772 


175740 


22 PAGE 33 
INITIALIZE THE COMMON TAGS 


;; SESSSUAEREESSSEAUEESSSORNEESSSSANAESESSANNES 0000900020 200000012 


BIS MMRESET.@TXCSR ;MASTER RESET 
MOV #ISYMOD, @PARCSR ; SET THE MODE 


TST2: 


pS 


>; MODE: ISYMOD 

>; LENGTH: SEVEN PLUS PARITY 
>; PARITY: ODDPAR 

>> CHARACTER: 125 


BIS @MRESET.@TXCSR ;MASTER RESET 


+SET MRINTENANCE MODE & SEND 


+NOTE: BIT WINDOWECLK ARE CLEARED (MTDATA=0) 


MOV #MINT! SEND, &TXCSR 


+SET om OF BITS.PARITY SENSE.& LOAD SYNC REG 


# |ISYMOD! SEVEN! ODDPAR ! 26. @PARCSR 
MoV TXCSR,. RS +SET UP FOR ERROR MSG 
MOVB 8125, dTXOBUF +LOAD DATA CHAR 
MOV #1652, STMP1 +TO BE SHIFTED CHAR 
MoV #10... SHIFT +# OF SHIFTS 


+ POKE a? GET INTO SYNCRONIZATION 


15: 


23: 


BNE 1$ 
; NOW og _ TO SEE DONA 
| 


#CLK, dTXCSR *POKE CLK UP 
BIC #CLK, dTXCSR +POKE CLK DOWN 
CLR RO 
ROR STMP1 ;FORCE CARRY 


BCC 2$ ;BR IF CARRY CLR 
BIS #BITW.RO sEQUIV OF BITW 


BIS #CLK. ATXCSR *POKE CLK UP 

BIC #CLK,. A@TXCSR +POKE CLK DOWN 
MOV aTXCSR. Ri + ACTUAL 

BIC #075777.R1 ;SAVE BITW & DNA 


ca RO. R1 >;COMPARE EXP VS ACT 
_ +4 
ERROR 3 ;BIT WINDOW DID NOT MATCH ACTUAL DATA 
;BIT.... ALSO CHECK DNA 
DEC SHIFT ># OF SHIFTS 


+D0 IT AGAIN ? 


#CLK, ATXCSR +POKE CLK 
MoV #0,RO -;EXPECTED 


MoV aTXCSR, R1 > ACTUAL 

BIC 877777,R1 +SAVE DONA ONLY 

CMP RO. R1 >COMPARE EXP VS ACT 
BEQ . +4 

ERROR 3 +DNA SHOULD BE SET 


+ 1F DNA DID NOT SET 
+CHECK WORD LENGTH SELECT LOGIC 


;7 THIS TEST VERIFYS CHARACTER PLUS PARITY GENERATION 
;;0F THE TRANSMITTER SECTION. 

;;1T ALSO CHECKS DONA TIMING 

;; MODE: SYNINT 

;; LENGTH: EIGHT PLUS PARITY 

;; PARITY: EVEPAR 


SEQ 0031 


DZDUU-B MACY11 30(1046) 


DZDUUB. M11 


1457 
1458 
1459 
1460 
1461 
1462 
1463 
1464 
1465 
1466 
1467 
1468 
1469 
1470 
1471 
1472 
1473 
1474 
1475 
1476 
1477 
1478 
1479 
1480 
1481 
1482 
1483 
1484 
1485 
1486 
1487 
1488 


004010 
004012 
004020 
004026 


004034 


004042 
004050 


000004 
052777 
012777 
052777 


012777 


012777 
016703 
112777 
012767 
012767 


052777 
042777 
005000 
006067 
103002 
052700 


052777 
042777 
017701 
042701 
020001 
001401 
104003 


005367 
001352 


052777 
012700 
017701 
042701 
020001 
0014901 
104003 


21-SEP-77 OQ9: 


31-MAY-77 O09: 50 


000400 
030000 
000400 


004020 


037426 
175652 
000125 
000125 
000011 


020000 
020000 


175360 
002000 


020U00 
020000 
175560 
075777 


174736 


020000 
100000 
175522 
077777 


175706 
175674 
175672 


175664 


175652 
175650 
175410 
175024 


175622 
175614 


175572 
175564 


175532 


G 3 
INITIALIZE THE COMMON TAGS 
++ CHARACTER: 125 
;; SESESUEANESSESEREEESSSORNEESSSSANEESESSAN820 0500000200 00000222 


TST3: 
BIS RMRESET.@TXCSR -;MASTER RESET 
MOV SSYNINT. @PARCSR ; SET THE MODE 
BIS #MRESET,@TXCSR -;MASTER RESET 


*+SET MAINTENANCE MODE & SEND 
*NOTE: BIT WINDOWECLK ARE CLEARED (MTDATA=0) 
MOV #MINT! SEND, ATXCSR 


>SET MODE, # OF BITS.PARITY SENSE.& LOAD SYNC REG 
MOV #SYNINT!E IGHT!EVEPAR ! 26, OPARCSR 
MOV TXCSR,.R3 +SET UP FOR ERROR MSG 
Move #125. dTXOBUF +LOAD DATA CHAR 
MOV #125. STMP1 >TO BE SHIFTED CHAR 
MoV 89., SHIFT +# OF SHIFTS 
;POKE CLK TO GET INTO SYNCRONIZATION 
BIS #CLK, A@TXCSR *POKE CLK UP 
BIC RCLK. ATXCSR >POKE CLK DOWN 


22 PAGE 34 


1$: CLR RO 
ROR STMP1 ;FORCE CARRY 
BCC 2$ >BR IF CARRY CLR 


;EQUIV OF BITW 


>;POKE CLK UP 
>POKE CLK DOWN 

> ACTUAL 

; SAVE BITW & DNA 


Bis RBITW. RO 


BIS #CLK, ATXCSR 
BIC #CLK, ATXCSR 
MOV aTXCSR, R1 
BIC #075777,R1 


2$: 


a RO.R1 ;COMPARE EXP VS ACT 
. +4 
ERROR 3 ;B1T WINDOW DID NOT MATCH ACTUAL DATA 
*BIT.... ALSO CHECK DNA 
DEC SHIFT ;¢# OF SHIFTS 


BNE 1$ ;D0 IT AGAIN ? 
;NOW POKE CLK TO SEE ONA 


BIS RCLK. ATXCSR +POKE CLK 
MoV #100000. RO + EXPECTED 
MOV aTXCSR,R1 + ACTUAL 


BIC 877777,R1 +SAVE DNA ONLY 


CMP RO.R1 >COMPARE EXP VS ACT 
BEQ . +4 
ERROR 3 +DNA SHOULD BE SET 


+ 1F DNA DID NOT SET 
+CHECK WORD LENGTH SELECT LOGIC 


7; THIS TEST VERIFYS CHARACTER PLUS PARITY GENERATION 
;;0F THE TRANSMITTER SECTION. 

;;1T ALSO CHECKS DNA TIMING 

;; MODE: SYNINT 

;; LENGTH: EIGHT PLUS PARITY 

;; PARITY: ODDPAR 

;; CHARACTER: 125 


PUTTTTTTTTETTTTTITTTTTTTT TTC TEETER TTETTET TTT TTT TTT TTT TTT TTT 


SEQ 0032 


DZDUU-B MACY11 30(1046) 


DZDUUB. M11 


1513 
1514 
1515 
1516 
1517 
1518 


004216 
004220 
004226 
004234 


004242 


004250 
004256 
004262 
004270 
004276 


004 304 
004312 
004320 
004 322 


004424 


000004 
052777 
012777 
052777 


012777 


012777 
016703 
112777 
012767 
012767 


052777 
042777 
005000 
006067 
103002 
052700 


052777 
042777 
017701 
042701 
020001 
001401 
104003 


005367 
001352 


052777 
012700 
017701 
042701 
020001 
001401 
104003 


000004 


21-SEP-77 Q9: 
31-MAY-77 O09: 50 


000400 
030000 
000400 


004020 


037026 
175444 
000125 
000525 
000011 


020000 
020000 


175152 
002000 


020000 
020000 
17&352 
075/77 


174530 


020000 
100000 
175314 
077777 


004426 052777 000400 
004434 012777 000000 


175500 
175466 
175464 


175456 


175444 
175442 
175202 
174616 


175414 
175406 


175364 
175356 


175324 


175272 
175260 


H $3 


22 PAGE 35 
INITIALIZE THE COMMON TAGS 
TST4: SCOPE 
BIS #MRESET.@TXCSR ;MASTER RESET 
MOV SSYNINT, @PARCSR ; SET THE MODE 
BIS #MRESET.@TXCSR ;MASTER RESET 


+SET vege MODE & SEND 
E: BIT WINDOWRCLK ARE CLEARED (MTDATA=0) 
NOV #MINT! SEND, ATXCSR 


*SET -—~ OF BITS. PARITY SENSE.& LOAD SYNC ~\ 


#SYNINT!'E IGHT! ODDPAR ! 26, @PARCS 
MOV TXCSR,. RI ;SET UP FOR ERROR MSG 
MOvVB #125, daTXOBUF ; LOAD DATA CHAR 
MOV #525, STMP1 >TO BE SHIFTED CHAR 
MoV #9.,.SHIFT ;# OF SHIFTS 
;POKE CLK TO GET INTO SYNCRONIZATION 
BIS #CLK, dATXCSR ;POKE CLK UP 
BIC #CLK, ATXCSR ;POKE CLK DOWN 
15: CLR RO 
ROR STMP 1 ;FORCE CARRY 
BCC 2$ ;BR IF CARRY CLR 
- BIS #BITW.RO ;EQUIV OF BITW 
BIS #CLK, dTXCSR ;POKE CLK UP 
BIC #CLK, ATXCSR ;POKE CLK DOWN 
MOV aTXCSR,R1 + ACTUAL 
BIC #075777.R1 ;SAVE BITW & DNA 
CMP RO. Ri ;COMPARE EXP VS ACT 
BEQ +4 
ERROR 3 ;BIT WINDOW DID NOT MATCH ACTUAL DATA 
;BIT....ALSO CHECK DONA 
DEC SHIFT ;# OF SHIFTS 
BNE 1$ ;00 IT AGAIN ? 
;NOW POKE CLK TO SEE DONA 
BIS #CLK, &@TXCSR >POKE CLK 
MOV #100000. RO > EXPECTED 
MOV aTXCSR.R1 ; ACTUAL 
BIC #77777.R1 ; SAVE ONA ONLY 
CMP RO. R1 ; COMPARE EXP VS ACT 
BEQ +4 
ERROR 3 ;DNA SHOULD BE SET 


AF DNA DID NOT SET 
+CHECK WORD LENGTH SELECT LOGIC 


>; THIS TEST VERIFYS CHARACTER PLUS PARITY GENERATION 
;;0F THE TRANSMITTER SECTION. 

3; 1T ALSO CHECKS DONA TIMING 

;; MODE: ISYMOD 

;; LENGTH: EIGHT PLUS PARITY 

;;PARITY: EVEPAR 

;, CHARACTER: 125 


PUTT T TTT et et it titres ett et estes ites ete tess ts eset itis test testis 
SCOPE 


TSTS: 
BIS #MRESET. @TXCSR ;MASTER RESET 
MoV #iSYMOD. APARCSR ; SET THE MODE 


SEQ 0033 


DZDUU-B MACY11 30(1046) 
31-MAY-7 


DZDUUB. M11 


1569 
1570 
1571 
1572 
1573 
1574 
1575 
1576 
1577 


004442 


004450 


004456 
004464 
004470 
004476 
004504 


004626 
004630 


004632 
004634 
004642 
004650 


052777 


012777 


012777 
016703 
112777 
012767 
012767 


052777 
042777 
005000 
006067 
103002 
052700 


052777 
042777 
017701 
042701 
020001 
001401 
104003 


005367 
001352 


052777 
012700 
017701 
042701 
020001 
001401 
104003 


000004 
052777 
012777 
052777 


21-SEP-77 Q9: 
? Q9: 50 


000400 


004020 


007426 


000013 


020000 
020000 


174744 
002000 


020000 
020000 
175144 
075777 


174322 


020000 
000000 
i 75106 
077777 


000400 
000000 
000400 


175256 


175250 


175236 
175234 
174774 
174410 


175206 
175200 


175156 
176150 


175116 


175064 


175052 
175050 


id 


22 PAGE 36 
INITIALIZE THE COMMON TAGS 
BIS #MRESET.@TXCSR -;MASTER RESET 
;SET MAINTENANCE MODE & SEND 
NOTE: BIT WINDOWRCLK ARE CLEARED (MTDATA=0) 
MOV #MINT! SEND, dTXCSR 
;SET MODE. # OF BITS. PARITY SENSE.& LOAD SYNC REG 
MOV #ISYMOD'E IGHT 'EVEPAR ! 26. @PARCSR 
MOV TXCSR, RI ;SET UP FOR ERROR MSG 
MOVB #125. dTXOBUF ;LOAD DATA CHAR 
MoV #2252. STMP1 ;TO BE SHIFTED CHAR 
MOV #11... SHIFT ;# OF SHIFTS 
>POKE CLK TO GET INTO SYNCRONIZATION 
BIS TXCSR ;POKE CLK UP 
BIC SCLK, OTXCSR ;POKE CLK DOWN 
1$: CLR RO 
ROR STMP 1 ;FORCE CARRY 
BCC 2$ ;BR IF CARRY CLR 
- BIS #B1TW.RO ;EQUIV OF BITW 
Bis #CLK, @TXCSR ;POKE CLK UP 
BIC #CLK, aTXCSR >POKE CLK DOWN 
MoV aTXCSR, R1 ; ACTUAL 
BIC #075777.R1 ;SAVE BITW & DNA 
CMP RO. R1 >; COMPARE EXP VS ACT 
BEQ | 
ERROR 3 ;BI1T WINDOW DID NOT MATCH ACTUAL DATA 
;BIT....ALSO CHECK DNA 
DEC SHIFT ;# OF SHIFTS 
BNE 1$ ;00 IT AGAIN ? 
;NOW POKE CLK TO SEE DONA 
BIS SCLK, aTXCSP ;POKE CLK 
MOV #0.R0 ;ExXPECTED 
MOV aTXCSR.R1 > ACTUAL 
BIC #77777,R1 ;SAVE DONA ONLY 
CMP RO. R1 ; COMPARE EXP VS ACT 
BEQ _ +4 
ERROR 3 >DNA SHOULD BE SET 
; 1 DONA DID NOT SET 
;CHECK WORD LENGTH SELECT LOGIC 
7; THIS TEST VERIFYS CHARACTER PLUS PARITY GENERATION 
;;0F THE TRANSMITTER SECTION. 
>; 1T ALSO CHECKS ONA TIMING 
>;MODE: ISYMOOD 
;; LENGTH: EIGHT PLUS PARITY 
;; PARITY: ODDPAR 
>; CHARACTER: 125 
age °° putenggummeee mee nascar teicpeyis NDT RA eT 
ST6: 
BIS SMRESET.@TXCSR ;MASTER RESET 
MOV #iSYMOD, @PARCSR ; SET THE MODE 
BIS SMRESET.@TXCSR -;MASTER RESET 


;SET MAINTENANCE MODE & SEND 


SEQ 0034 


DZDUU-B MACY11 30(104%6) 
31-MAY-77 


DZDUUB. M11 


012777 


012777 
016703 
112777 
012767 
012767 


052777 


052777 
042777 
017701 
042701 
020001 
001401 
104003 


005367 
001352 


052777 
012700 
017701 
042701 
020001 
001401 
104003 


000004 
052777 
012777 
052777 


012777 


J 3g 
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004020 


007026 
175020 


020000 
020000 


174536 
002000 


020000 
020000 
174736 
075777 


174114 


020000 
000000 
174700 
077777 


000400 
030000 
000400 


004020 


175042 


175030 
175026 
174566 
174202 


175000 
174772 


174750 
174742 


174710 


174656 
174644 
174642 


174634 


INITIALIZE THE COMMON TAGS 


*+NOTE: BIT WINDOWRCLK ARE CLEARED (MTDATA=0) 
MOV SMINT! SEND, &TXCSR 


+SET MODE. # OF BITS. PARITY SENSE.& LOAD SYNC REG 
MoV # |SYMOD!E IGHT! ODDPAR ! 26, @PARCSR 
+SET UP FOR —~ MSG 


MOVE #125. dTXOBUF +LOAD DATA C 
MoV #3252. STP 1 >TO BE SHIFTED CHAR 
#11... SHIFT +# OF SHIFTS 


MoV 

+POKE CLK TO GET INTO SYNCRONIZATION 
BIS K, aTXCSR +POKE CLK UP 
BIC aCLK, aTXCSR +POKE CLK DOWN 


1$: CLR RO 
ROR STMP1 >FORCE CARRY 
BCC 2$ ;BR IF CARRY CLR 

- BIS #BITW.RO ;EQUIV OF BITW 
BIS #CLK,. ATXCSR ;POKE CLK UP 
BIC #CLK. ATXCSR ;POKE CLK DOWN 
MOV aTXCSR,R1 ; ACTUAL 
Bic #075777,R1 ; SAVE BITW & DNA 
CMP RO. R1 ;COMPARE EXP VS ACT 
BEQ +4 
ERROR 3 ;BIT WINDOW D010 NOT MATCH ACTUAL DATA 

>BIT.... ALSO CHECK DNA 

DEC SHIFT ;# OF SHIFTS 
BNE 1$ ;00 IT AGAIN ? 

;NOW POKE CLK TO SEE DONA 
BIS #CLK, dTXCSR ;POKE CLK 


Mov #0,RO0 ;EXPECTED 


MOV aTXCSR,R1 ; ACTUAL 

BIC #77777,R1 ; SAVE DNA ONLY 

CMP RO. R1 ; COMPARE EXP VS ACT 
BEQ +4 

ERROR 3 ;DNA SHOULD BE SET 


> 1F DNA DID NOT SET 
*CHECK WORD LENGTH SELECT LOGIC 


;; THIS TEST VERIFYS CHARACTER PLUS PARITY GENERATION 
;;0F THE TRANSMITTER SECTION. 

;;1T ALSO CHECKS DNA TIMING 

;; MODE: SYNINT 

;; LENGTH: EIGHT PLUS PARITY 

>; PARITY: EVEPAR 

++ CHARACTER: 252 


;; SESSUREAESSSSAERESSSAUSESSSANEEESEAURE00500 0020200002 19050042 


TST?: 
BIS SMRESET.@TXCSR ;MASTER RESET 
MoV SSYNINT. @PARCSR ;SET THE MODE 
BIS SMRESET.@TXCSR -;MASTER RESET 


+ SET MAINTENANCE MODE & SEND 
TE: BIT WINDOWRCLK ARE CLEARED (MTDATA=0) 
Mov @MINT! SEND. aTXCSR 


SEQ 0035 


DZDUU-B MACY11 30(1046) 
31-MAY-77 


DZDUUB. M11 


005072 
005100 


012777 
016703 
112777 
012767 
012767 


052777 
042777 
005000 
006067 
102002 
052700 


052777 
042777 
017701 
042701 
020001 
001401 
104003 


005367 
001352 


052777 
012700 
017701 
042701 
020001 
001401 
104003 


000004 
052777 
012777 
052777 


012777 


012777 


K 3 
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037426 
174622 
000252 
000252 
000011 


020000 
020009 


174330 
002000 
020000 
020000 


174530 
075777 


173706 


020u00 
100000 
174472 
077777 


000400 
030000 
000400 


004020 


037026 


174622 
174620 
174360 
173774 


174572 
174564 


174542 
174534 


174502 


174450 
1744 36 
174424 


174426 


174414 


38 
INITIALIZE THE COMMON TAGS 


*+SET MODE.# OF BITS.PARITY SENSE.& LOAD SYNC REG 
MOV @SYNINT!E IGHT!EVEPAR ! 26, @PARCSR 
MOV TXCSR.R3 +SET UP Ay ERROR MSG 
MOVB #252. dTXOBUF ;LORO DATA CHAR 
MOV #252, STMP 1 +TO BE SHIFTED CHAR 
MoV #9. , SHIFT +@ OF SHIFTS 

+POKE CLK TO GET INTO SYNCRONIZATION 
BIS K, dTXCSR +POKE CLK UP 

BIC CLK, ATXCSR +POKE CLK DOWN 


1$: CLR 0 
ROR STMP1 ;FORCE CARRY 
BCC 2$ >BR IF CARRY CLR 
BIS #BITW.RO sEQUIV OF BITW 
BIS CLK, @TXCSR +POKE CLK UP 
Bic CLK, ATXCSR *POKE CLK DOWN 
MOV OTXCSR. R1 + ACTUAL 
BIC #075777,R1 + SAVE BITW & DONA 
ind — +COMPARE EXP VS ACT 
.% 
ERROR 3 ;BIT WINDOW DIO NOT MATCH ACTUAL DATA 
;BIT.... ALSO CHECK DNA 
DEC SHIFT ;# OF SHIFTS 
BNE 1$ +00 IT AGAIN ? 
;NOW POKE CLK TO SEE DNA 
BIS #CLK. @TXCSR +POKE CLK 
MoV #100000. RO > EXPECTED 
Mov aTXCSR.R1 + ACTUAL 


Bic #77777,R1 +SAVE DNA ONLY 


CMP RO. R1 ; COMPARE EXP VS ACT 
BEQ . +4 
ERROR 3 +DNA SHOULD BE SET 


> 1F ONA DID NOT SET 
+CHECK WORD LENGTH SELECT LOGIC 


32; THIS TEST VERIFYS CHARACTER PLUS PARITY GENERATION 
;;0F THE TRANSMITTER SECTION. 

;;1T ALSO CHECKS DNA TIMING 

;; MODE: SYNINT 

;; LENGTH: EIGHT PLUS PARITY 

;,PARITY: ODDPAR 

;; CHARACTER: 252 


;; SESSSSSRARESEESSSSSAAAUNEEESSANREE240000000 102255888 NAETED 


TST10: 
BIS SARESET.@TXCSR ;MASTER RESET 
MoV SSYNINT. @PARCSR >; SET THE MODE 
BIS SMRESET.@TXCSR ;MASTER RESET 


SET MAINTENANCE MODE & SEND 
;NOTE: BIT WINDOWRCLK ARE CLEARED (MTDATA=0) 
MOV MINT! SEND. @TXCSR 


;SET MODE. # OF BITS.PARITY SENSE.& LOAD SYNC REG 
MoV SSYNINT'E IGHT! ODDPAR ! 26. d@PARCSR 


SEQ 0036 


DZDUU-B MACY11 30(104%6) 


DZDUUB. M11 


1737 
1738 
1739 
1740 


31-MAY-77 


016703 
112777 
012767 
012767 


104003 


005367 
001352 


052777 
012700 


001401 
104003 


000004 
052777 
012777 
052777 


012777 


012777 
016703 
112777 
012767 
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174414 
000252 
000652 
000011 


020000 
020000 


174122 
002000 


020000 
020000 
174322 
075777 


173500 


020000 
100000 
174264 
077/77 


000400 
030000 
000400 


004020 


037426 
174206 
000000 
000000 


174412 
174152 
173566 


174364 
174356 


174334 
174326 


174274 


174242 
174230 
174226 


174220 


174206 


174204 
173744 


Ld 





INITIALIZE THE COMMON TAGS SEQ 0037 


MOV TXCSR, RI ;SET UP FOR ERROR MSG 
MOVE #252, dTXOBUF ;LOAD DATA CHAR 
MOV #652. STMP 1 ;TO BE SHIFTED CHAR 
MoV #9. ,SHIFT ;# OF SHIFTS 
;POKE CLK TO GET INTO SYNCRONIZATION 
BIS LK, dTXCSR ;POKE CLK UP 
BIC #CLK, dTXCSR ;POKE CLK DOWN 
15: CLR RO 
ROR STMP1 ;FORCE CARRY 
BCC 2$ ;BR IF CARRY CLR 
= BIS #BITW.RO ;EQUIV OF BITW 
BIS #CLK, OTXCSR ;POKE CLK UP 
BIC #CLK, dTXCSR ;POKE CLK DOWN 
MOV aTXCSR, R1 ; ACTUAL 
BIC #075777.,R1 ;SAVE BITW & DNA 
as ote >; COMPARE EXP VS ACT 
_¢ 
ERROR 3 ;BIT WINDOW DID NOT MATCH ACTUAL DATA 
;BIT.... ALSO CHECK DNA 
DEC SHIFT ;# OF SHIFTS 
BNE 1$ ;00 IT AGAIN ? 
;NOW POKE CLK TO SEE DONA 
BIS #CLK, aTXCSR ;POKE CLK 
MOV #100000, RO > EXPECTED 
MoV aTXCSR, R1 ; ACTUAL 
BIC #77777.R1 ; SAVE DNA ONLY 
CMP RO. R1 >; COMPARE EXP VS ACT 
BEQ +4 
ERROR 3 ;DONA SHOULD BE SET 
;1F ONA DID NOT SET 
;CHECK WORD LENGTH SELECT LOGIC 
;; THIS TEST VERIFYS CHARACTER PLUS PARITY GENERATION 
;;0F THE TRANSMITTER SECTION. 
32 1T ALSO CHECKS ONA TIMING 
>; MODE: SYNINT 
;; LENGTH: EIGHT PLUS PARITY 
7; PARITY: EVEPAR 
>> CHARACTER: 0 
| engage °° cman ate ae amc aeareS oH me MESSE 
11: 
BIS SMRESET.@TXCSR ;MASTER RESET 
MOV SSYNINT. @PARCSR ; SET THE MODE 
BIS SMRESET.@TXCSR -;MASTER RESET 


+ SET MAINTENANCE MODE & SEND 
TE: BIT WINDOWECLK ARE CLEARED (MTDATA=0) 
nov SMINT! SEND, @TXCSR 


;SET MODE. @ OF BITS.PARITY SENSE.& LOAD SYNC REG 


MoV SSYNINT'E IGHT!EVEPAR ! 26. @PARCSR 

MoV TXCSR, RS +SET UP FOR ERROR MSG 
NOvVB #0, dTXOBUF +LOAD DATA CHAR 

MOV 80, STMP1 ;TO BE SHIFTED CHAR 


DZDUU-B MACY11 30(1046) 


DZ0UUB. M11 


31-MAY-77 


012767 


000004 
052777 
012777 
052777 


012777 


012777 
016703 
112777 
012767 
012767 


052777 


21-SEP-77 09:22 PAGE 
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000011 


020000 
020000 


173714 
002000 


020009 
020000 
174114 
075777 


173272 


020000 
100000 
174056 
077777 


000400 
030000 
000400 


004020 


037026 
174000 


173360 


174156 
174150 


174126 
174120 


174066 


174034 
174022 
174020 


174012 


174000 
173776 
173536 
173152 


173750 


Nn 3 


40 
INITIALIZE THE COMMON TAGS 


1$: 


23: 


MOV #9., SHIFT ;# OF SHIFTS 
;POKE CLK TO GET INTO SYNCRONIZATION 
BIS #CLK. dTXCSR ;POKE CLK UP 
BIC #CLK, dTXCSR ;POKE CLK DOWN 
CLR RO 
ROR STMP1 >FORCE CARRY 
BCC 23 ;BR IF CARRY CLR 
BIS SBI TW.RO ;EQUIV OF BITW 
BIS #CLK, dTXCSR ;POKE CLK UP 
BIC #CLK, dTXCSR ;POKE CLK DOWN 
MOV aTXCSR, R1 > ACTUAL 
BIC #075777,R1 ;SAVE BITW & DNA 
as — ;COMPARE EXP VS ACT 
_¢+ 
ERROR 3 ;B1T WINDOW DID NOT MATCH ACTUAL DATA 
;BIT.... ALSO CHECK DNA 
DEC SHIFT ;@ OF SHIFTS 
BNE 1$ ;00 IT AGAIN ? 
;NOW POKE CLK TO SEE DNA 
BiS #CLK, aTXCSR ;POKE CLK 
MOV #100000. RO > EXPECTED 
MoV aTXCSR, R1 ; ACTUAL 
BIC #77777,R1 ; SAVE DNA ONLY 
CMP RO. R1 ;COMPARE EXP VS ACT 
BEQ +4 
ERROR 3 ;ONA SHOULD BE SET 


TST12: 


;1F ONA DID NOT SET 


+CHECK WORD LENGTH SELEcT LOGIC 
+;THIS TEST VERIFYS CHARACTER PLUS PARITY GENERATION 


;;0F THE TRANSMITTER SECTION. 
+; 1T ALSO CHECKS DONA TIMING 


+;MODE: SYNINT 


++ LENGTH: EIGHT PLUS PARITY 


;;PARITY: ODDPAR 
++ CHARACTER: 0 


j ; SUSARMARSSSEAAORSEESEAAAESESEESAAASEESLAAA ES ATANAA ES ETALAN EES 
SMRESET,. dTXCSR 


SCOPE 


BIS 
Mov 
BIS 


+MASTER RESET 


SSYNINT, @PARCSR >; SET THE MODE 


SMRESET. @TXCSR 


+ SET meager toy MODE & SEND 


MOV 


+MASTER RESET 


E: BIT WINDOWRCLK ARE CLEARED (MTDATA=0) 


Si INT! SEND, @TXCSR 


+ SET —_ OF BITS.PARITY SENSE.& LOAD SYNC REG 
SSYNINT!E IGHT! ODDPAR ! 26. ePARCSR 
TXCSR. RS 
#0, aTXOBUF 
#400. STNP1 


89. 


» SHIFT 


+SET UP FOR ERROR MSG 
;LOAD DATA CHAR 

+TO BE SHIFTED CHAR 
+# OF SHIFTS 


+POKE CLK To GET INTO SYNCRONIZATION 
BIS #0..K. ATXCSR 


+POKE CLK UP 


SEQ 0038 


DZDUU-B MACY11 30(1046) 
DZ0UUB. M11 31-MAY-77 O09: 50 


006066 





001401 
104003 


005367 
001352 


052777 
012700 
017701 
042701 
020001 
001401 
104003 


000004 
052777 
012777 
052777 


012777 


012777 
016703 
112777 
012767 
012767 


052777 
042777 
005000 


006067 


21-SEP-77 O09: 


020000 


173506 


002000 


020000 
020000 
173706 
075777 


173064 


020000 
100000 
173650 
077777 


000400 
030000 
000400 


004020 


037426 
173572 
000377 
000377 
000011 


173300 





173742 


173720 
173712 


173660 


173626 
173614 
173612 


173604 


173572 


173570 
173330 
172744 


173542 
173534 


N 3 
INITIALIZE THE COMMON TAGS 
BIC #CLK, dTXCSR 
RO 


22 PAGE 4 


+;POKE CLK DOWN 


15: CLR 
ROR STMP1 ;FORCE CARRY 
BCC 23 ;BR IF CARRY CLR 
2 BIS #BITW.RO s;EQUIV OF BITW 
BIS #CLK, dTXCSR ;POKE CLK UP 
BIC #CLK, dTXCSR ;POKE CLK DOWN 
MOV aTXCSR, R1 >; ACTUAL 
BIC #075777.R1 ;SAVE BITW & DNA 
ys .e +; COMPARE EXP VS ACT 
_* 
ERROR 3 ;BIT WINDOW O10 NOT MATCH ACTUAL DATA 
;BIT....ALSO CHECK DONA 
DEC SHIFT ;># OF SHIFTS 
BNE 1$ ;00 IT AGAIN ? 
+NOW POKE CLK TO SEE ONA 
BIS #CLK, dTXCSR ;POKE CLK 
MoV #100000. RO > EXPECTED 
MoV OTXCSR, R1 > ACTUAL 
BIC #77777,R1 +SAVE DNA ONLY 
CMP RO. R1 >; COMPARE EXP VS ACT 
BEQ . +4 
ERROR 3 +;DNA SHOULD BE SET 


+1F DNA DID NOT SET 
+CHECK WORD LENGTH SELECT LOGIC 


++ THIS TEST VERIFYS CHARACTER PLUS PARITY GENERATION 
>;0F THE TRANSMITTER SECTION. 

++ 1T ALSO CHECKS DNA TIMING 

+; MODE: SYNINT 

>; LENGTH: EIGHT PLUS PARITY 

>;PARITY: EVEPAR 

+, CHARACTER: 377 


;; RESSSERMAEESESSANEESESSANNEEE5S000 020555 94242255209 2EEEEEEAEY 
0 


TST13: 
BIS #MRESET. ATXCSR -;MASTER RESET 
MoV #SYNINT, @PARCSR > SET THE MODE 
BIS #MRESET.@TXCSR ;MASTER RESET 


SET MAINTENANCE MODE & SEND © 
+NOTE: BIT WINDOW&CLK ARE CLEARED (MTDATA=0) 
MoV #MINT! SEND, dTXCSR 


>SET MODE. #& OF BITS.PARITY SENSE.& LOAD SYNC REG 
MoV RSYNINT!E IGHT!EVEPAR ! 26, @PARCSR 


MOV TXCSR. RS +SET UP FOR — MSG 
MOVB #377, dTXOBUF +LOAD DATA CHA 
MoV #377, STMP1 


+TO BE SmIFTED CHAR 
MoV 89... SHIFT ;# OF SHIFTS 

;POKE CLK TO GET INTO SYNCRONIZATION 

BIS XCSR *POKE CLK UP 

BIC &CLK, @TXCSR +POKE CLK DOWN 


1$: CLR RO 
STMP1 8 ;FORCE CARRY 


SEQ 0039 


DZDUU-B MACY11 30(104%6) 


DZDUUB. M11 


006236 


006240 
006244 


006274 


31-MAY-77 


103002 
052700 


052777 
042777 
017701 
042701 
020001 
001401 
104003 


005367 
001352 


052777 
012700 
017701 
042701 
020001 
001401 
104003 


000004 
052777 
012777 
052777 


012777 


012777 
016703 
112777 
012767 
012767 


052777 
042777 
005000 


006067 
103002 
052700 


B 4 
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002000 


020000 
020000 
173500 
075777 


172656 


020000 
100000 
173442 
077777 


000400 
030000 
000400 


004020 


037026 
173364 
000377 
000777 
000011 


020000 
020000 


173072 
002000 


173512 
173504 


173452 


173420 
173406 
173404 


173376 


173364 


173362 
173122 
172536 


173334 
173326 


42 
INITIALIZE THE COMMON TAGS 


BCC 2$ BR IF CARRY CLR 
BIS RB ITH. RO sEQUIV OF BITW 


23: 
BIS #CLK, dTXCSR ;POKE CLK UP 
BIC #CLK, dTXCSR ;POKE CLK DOWN 
MoV aTXCSR,. R1 ; ACTUAL 
BIC #075777,R1 ;SAVE BITW & DNA 
ie are ;COMPARE EXP VS ACT 
i an 
ERROR 3 ;BIT WINDOW DID NOT MATCH ACTUAL DATA 
;BIT.... ALSO CHECK DNA 
DEC SHIFT ;# OF SHIFTS 
BNE 1% ;D0 IT AGAIN ? 
;NOW POKE CLK TO SEE DONA 
BIS #CLK, ATXCSR ;POKE CLK 
MoV #100000, RO > EXPECTED 
MOV aTXCSR,.R1 ; ACTUAL 


BIC 877777,R1 +SAVE DNA ONLY 


“aA — +COMPARE EXP VS ACT 
_™ 
ERROR 3 +DNA SHOULD BE SET 


+ 1F DONA DID NOT SET 
;CHECK WORD LENGTH SELECT LOGIC 


;; THIS TEST VERIFYS CHARACTER PLUS PARITY GENERATION 
;;0F THE TRANSMITTER SECTION. 

+; 1T ALSO CHECKS DNA TIMING 

;; MODE: SYNINT 

;; LENGTH: EIGHT PLUS PARITY 

>; PARITY: ODDPAR 

>; CHARACTER: 377 


POETTTTTTTTTIT TTT TTTETT TTT ETT TTT ETT TTT CTT TTT TTT TTT TTT ttt S 


TST14: 
BIS SMRESET.@TXCSR ;MASTER RESET 
MOV SSYNINT, @PARCSR >; SET THE MODE 
BIS #MRESET.@TXCSR -;MASTER RESET 


>SET MAINTENANCE MODE & SEND 
;NOTE: BIT WINDOWECLK ARE CLEARED (MTDATA=0) 
MoV #MINT! SEND, @TXCSR 


;SET MODE. ® OF BITS.PARITY SENSE.& LOAD SYNC REG 
MOV SSYNINT!E IGHT' ODDPAR ! 26. @PARCSR 
MOV TXCSR.RS +SET UP FOR ERROR MSG 
MOvB #377, aT XOBUF +LOAD DATA CHAR 
MoV #777. STMP1 +TO BE SHIFTED CHAR 
MoV #9. , SHIFT +# OF SHIFTS 
;POKE CLK TO GET INTO SYNCRONIZATION 
BIS CLK. @TXCSR +POKE CLK UP 
BIC CLK, @TXCSR +POKE CLK DOWN 


1$: CLR RO 
ROR STMP1 ;FORCE CARRY 
BCC 2$ >BR IF CARRY CLR 


BIS #BITW.RO sEQUIV OF BITW 


23: 


SEQ 0040 


DZDUU-B MACY11 et te 


DZ0UUB. M11 


006502 


31-MAY- 


052777 
012700 
017701 
042701 
020001 
001401 
104003 


000004 
105767 
100127 
052777 
012777 
052777 


012777 
012777 


052777 


042777 
052777 


042777 
052777 


c 4 
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020000 
020000 
173272 
075777 


172450 


020000 
100000 
173234 
077777 


172434 
000400 


030000 
000400 


064001 
036026 


000020 


020000 
020000 


020000 
020000 


173304 
173276 


173244 


173204 
173172 
173170 


173162 
173150 


173132 


173140 
173132 


173124 
173116 


43 
INITIALIZE THE COMMON TAGS 


BIS #CLK, dTXCSR ;POKE CLK UP 
BIC #CLK, d@TXCSR +POKE CLK DOWN 
MoV aTXCSR. R1 T 
BIC #075777,R1 sSAVE BITW & DNA 
ad e ; COMPARE. EXP vS ACT 
_¢ 
ERROk 3 AH WINDOW D10 NOT MATCH ACTUAL DATA 
;BIT.... ALSO CHECK ONA 
DEC SHIFT 4 OF SHIFTS 
BNE 1$ ;00 IT AGAIN ? 
>NOW POKE CLK TO SEE DNA 
BIS #CLK, dTXCSR >POKE CLK 
MoV #100000, RO > EXPECTED 
MoV aTXCSR, Ri > ACTUAL 
BIC #77777.,R1 ;SAVE DNA ONLY 
CMP RO.R1 >; COMPARE EXP VS ACT 
BEQ +4 
ERROR 3 ;DNA SHOULD BE SET 


>; 1F ONA OID NOT SET 
;CHECK WORD LENGTH SELECT LOGIC 


+; THIS TEST VERIFYS THAT BY SENDING ONLY ONE SYNC 

+;CHARACTER (TWO SELECTED BY STRAPPING ) RECACT =0 

+; THEN SEND ONE ORDINARY CHARACTER (TO BREAK UP THE SEQUENCE) 
PFGE GE... bus chosen IT WILL TAKE TWO MORE SYNC CHARS 
+>BEFORE RECACT =1 

;;NOTE: THIS TEST WILL ONLY WORK WHEN TWO SYNC CHARS 

;;MAS BEEN BEEN SELECTED ... OTHERWISE JUMP AROUND THIS TEST 
+,MODE: SYNC INTERNAL (SYNINT) 

>;PARITY: NOPAR 

++ LENGTH: E i1GHT 


;; THIS TEST CHECKS ONLY THE RECEIVER SECTION 


;; RERSESSEMAESERESESSSARUURESESSSAAEEESEESSSSANNAEEESSSESSAAEEESS 
TST15: 

TSTB SYNCNO ; TEST FOR & OF SYNC CHARS REQUIRED 

BPL 2$ ;1F NOT TWO GET OUT OF TEST 

BIS #MRESET.@TXCSR ;MASTER RESET 

MOV SSYNINT, @PARCSR >; SET THE MODE 

BIS #MRESET.@TXCSR -;MASTER RESET 


;SET MAINT DATA, CLK. BREAK, BHAINTENANCE MODE 
MoV SNTDOATA!ICLK! MINT !BREAK, aTXCSR 


;SET MODE .# OF BITS.PARITY SENSE. &LOAD SYNC REG 
MoV SSYNINT!E IGHT !NOPAR ! 26. dPARCSR 
BIS BSYNSCH. @RXCSR ;SET SYNC SEARCH 
;POKE CLK TO GET RECEIVER INTO SYNCROIZATION. ... 
BIC CLK, @TXCSR +POKE CLK DOWN 
BIS aCLK, @TXCSR +POKE CLK UP 
;POKE CLK TO GET LOGIC INTO SYNCRONIZATION 
BIC CLK. @TXCSR +POKE CLK DOWN 
BIS 8CLK. @TXCSR +POKE CLK UP 


SEQ 0041 


DZD0UU-B MACY11 30(104%6) 


DZDUUB. M11 


006662 
006670 


006772 
006774 
007002 
007010 


007016 


007024 


007032 
007040 


007046 
007054 


31-MAY-77 


012767 


004767 


042777 
052777 


104004 


000004 
052777 
012777 
052777 


012777 


012777 


042777 
052777 


042777 
052777 


0 4 
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000010 
000026 
010342 
004000 


000010 
000025 
010310 


020000 
020000 


020000 
020000 
000002 
004000 


000010 
000026 
010220 
172146 


004uU00 


000400 
030000 
000400 


064001 


036026 


020000 
020000 


020000 
020000 


172304 
172654 


173054 


172252 
172622 


173036 
173030 


173022 
173014 


172204 
172764 


172162 
172532 


172724 


172724 
172712 
172710 


172702 


172670 


172666 
172660 


172652 
172644 


INITIALIZE THE COMMON TAGS 
MOV #8..,SHIFT ;# OF SHIFTS 
+SYNC CHAR TO BE SHIFTED IN 
E ;SHIFT IN THIS SYNC CHAR 
BIT ‘yest mpegs sRECACT = 0 ? 


EQ 

ERROR ;RECACT SHOULD BE O 
MOV 8. » SHIFT ;# OF SHIFTS 
MOV #25, STMP1 +ANY CHARACTER 


JSR PC, RPOKE ;SHIFT IN THIS CHARACTER 
>YOU HAVE JUST LOST SYNCRONIZATION..................... 
*+POKE THE CLK TWICE TO GET INTO SYNCRONIZATION 
*+POKE CLK TO GET LOGIC INTO SYNCRONIZATION 

BIC CLK, @TXCSR +POKE CLK DOWN 

BIS ACLK, dTXCSR >POKE CLK UP 
+POKE CLK TO GET LOGIC INTO SYNCRONIZATION 

BIC CLK, dTXCSR +POKE CLK DOWN 

BIS CLK, @TXCSR +POKE CLK UP 

MOV #2, COUNT +# OF SYNC CHARS 


1$: ay 0 heres *RECACT = 0? 
< 
ERROR 4 ;RECACT SHOULD BE O 
MOV #8... SHIFT ># OF SHIFTS 
MoV 826, STNP 1 *SYNC CHAR 
JSR PC, RPOKE +SHIFT IN THIS SYNC CHAR 
DEC COUNT 
BNE 1$ + 1S COUNT = 


0 ? NO GO AGAIN 
BIT #RECACT, ARXCSR ;RECACT = 1 
BNE . +4 

ERROR 4 >RECACT SHOULD BE ASSERTED 


23: 
>; THIS TEST VERIFYS MODE SELECT..... 
;;SYNC EXTERNAL VS. SYNC INTERNAL 


;BASICALLY THE TEST CHECKS THAT THE RECEIVED 
;DATA FREEZES IN SYNC INTERNAL 
; IN SYNC EXTERNAL THIS DATA IS TRANSPARENT 
;THIS TEST ONLY APPLIES TO THE RECEIVER SECTION 
+;LENGTH: EIGHT 
NOTE: SEARCH SYNC !S NOT SET 
> RRRAAAAAAAAARAAAAAALAAA TAA AAA AAA AA AAA AAA AAA AAA AAA AAT Ay 
TST16: SCOPE 
BIS #MRESET,@TXCSR ;MASTER RESET 
Mov SSYNINT. @PARCSR >SET THE MODE 
BIS SMRESET.@TXCSR -;MASTER RESET 


;SET MAINT DATA, CLK, BREAK. BMAINTENANCE MODE 
MoV SATOATAICLK! MINT! BREAK, dTXCSR 


;SET MODE .# OF BITS.PARITY SENSE.&LOAD SYNC REG 
Mov SSYNINT!E IGHT!NOPAR ! 26. @FARCSR 
;POKE CLK TO GET LOGIC INTO SYNCRONIZATION 
BIC CLK, @TXCSR +POKE CLK DOWN 
BIS CLK. @TXCSR +POKE CLK UP 
;POKE CLK TO GET LOGIC INTO SYNCRONIZATION 
BIC #CLK, dTXCSR +POKE CLK DOWN 
BIS CLK. ATXCSR +POKE CLK UP 


SEQ 0042 


DZDUU-B MACY11 30(104%6) 
31-MAY-77 


DZDUUB. M11 


007062 
007070 
007076 
007102 


007160 
007164 
007166 
007174 
007202 


007210 


012767 


104002 
005367 
001346 
052777 


012777 
052777 


012777 


012777 
042777 


09:5 


000010 
000125 
172614 
040000 


172362 
040000 
020000 
020009 


000377 
172544 


171736 


000400 
020000 
000400 


064001 


026U26 


172146 
172356 


171550 


172032 
172402 


172616 


172600 
172572 
172564 


172532 
172520 
172516 


172510 


172476 
172474 
172466 


171654 
172224 


172434 


172416 


172404 
172376 
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45 
INITIALIZE THE COMMON TAGS 


1$: 


23: 


MoV #8.,SHIFT ;# OF SHIFTS 
MOV #125. STMP1 ;DATA CHARACTER 
MoV RXDOBUF,.R3 ;FOR ERROR MESSAGE 
Ae #NTOATA,. aTXCSR ; CLEAR MAINT DATA 
ROR STMP 1 ;FORCE CARRY 
BCC 2$ 
BIS #MTOATA,. aTXCSR -;SET MTDATA 
BIC @CLK, dTXCSR >POKE CLK 
BIS #CLK, dTXCSR ; 
MoV #377,RO ; EXPECTED 
MOV ORXOBUF. R1 > ACTUAL 
CMP RO. R1 
BEQ +4 
ERROR 2 

;DATA CHARACTER SHOULD COMPARE...... 
DEC SHIFT ;1S tT THE LAST SHIFT ? 
BNE 1$ ;NO ...SHIFT SOME MORE 
BIS SMRESET.@TXCSR -;MASTER RESET 
MOV #SYNEXT, @PARCSR ; SET THE MODE 
BIS #MRESET.@TXCSR -;MASTER RESET 


;SET MAINT DATA, CLK, BREAK, BMAINTENANCE MODE 


MOV 


SMTDATA!CLK! MINT! BREAK, @TXCSR 


> SET we *y OF BITS. PARITY SENSE. &LOAD SYNC REG 


#SYNEXT!E IGHT !NOPAR ! 26. @PARCSR 


+ POKE ‘ee? _ GET LOGIC INTO SYNCRONIZATION 


55: 


6$: 


BIS #CLK. d@TXCSR +POKE CLK UP 

MoV #8.. SHIFT +# OF SHIFTS 

MoV #125, STMP1 *DATA CHARACTER 

CLR STMPZ 

COMB STMP2 ;MAKE LOW BYTE ALL 1°S 

;TO MATCH RXDBUF'S CONTENTS AFTER A MASTER RESET 
dy RMTDATA, ATXCSR -;CLR MAINT DATA 

CL 

ROR STMP1 ;FORCE CARRY 

BCC 6$ 

BIS RMTDATA, @TXCSR 

RORB STMHP2 ;PICK UP CARRY BIT 

BIC CLK. @TXCSR 

BIS #CLK. @TXCSR 

MOV STMP2. RO > EXPECTED 

MoV QR XOBUF. R1 +> ACTUAL 

CMP RO.R1 

BEQ _ +4 

ERROR +DATA CHARACTER SHOULD COMPARE... 


#CLK. dTXCSR +POKE CLK DOWN 


2 
;THE DATA CHARACTER SHOULD BE SEEN AS IT 
>SHIFTS ACROSS THE RECEIVER DATA OUTPUT 


DEC 
BNE 


SHIFT 
5$ 


>; THIS TEST VERIFYS TX DONE FUNCTION, DONE = 1 
SYNC INTERNAL 


;; MODE: 


>; PARITY: 


NO PARITY (NOPAR) 


SEQ 0043 


DZDUU-B MACY11 30(104%6) 


DZDUUB. M11 


007354 


007356 
007364 
007372 


007400 


007406 


007414 
007420 
007422 
007424 
007432 
007440 
007446 
007452 
007454 


007456 
007464 
007472 
007476 
007500 


007502 


007504 
007512 
007520 


31-MAY-77 


000004 


052777 
012777 
052777 


012777 


012777 


105777 
100401 
104004 
112777 
052777 
042777 
105777 
100001 
104004 


052777 
042777 
105777 
100401 
104004 


000004 


052777 
012777 
052777 


09:5 


000400 
030000 
000400 


004020 


036026 
172306 


000021 
020000 
020000 
172254 


020uU00 
020000 
172230 


000400 
020000 
000400 


og wie 09: 


172342 
172330 
172326 


172320 


172306 


172300 
172266 
172260 


172242 
172234 


172214 
172202 
172200 


F Y 
INITIALIZE THE COMMON TAGS 
++LENGTH: EIGHT 


;; SESSSSSAAEESSSSSSRNEESSSSSNNEEESSSANNN0S5 55090000222 0000000223 


BIS @MRESET. @TXCSR -;MASTER RESET 
MoV @SYNINT, @PARCSR > SET THE MODE 
BIS @MRESET.@TXCSR ;MASTER RESET 


+SET MAINTENANCE MODE & SEND 
*+NOTE: BIT WINDOWECLK ARE CLEARED (MTDATA=0) 
MoV #MINT! SEND, dTXCSR 


;SET MODE.# OF BITS.PARITY SENSE.& LOAD SYNC REG 
MoV #SYNINT!E IGHT! NOPAR ! 26, @PARCSR 


22 PAGE 4é 


TSTB aTXCSR +; TXDONE? 

BMI +4 

ERROR ; TXDONE SHOULD 8E SET 
MOVB #21, aTXOBUF ;LOAD ANY CHAR 


*POKE CLK UP 
+POKE CLK DOWN 


BiS #CLK, @TXCSR 
BIC #CLK, aTXCSR 


TSTB aTXCSR 
BPL +4 
ERROR 4 + TXDONE SHOULD BE CLR 


;POKE CLK UP 
+>POKE CLK DOWN 


BIS #CLK, dTXCSR 
‘BIC #CLK, dTXCSR 


TSTB aTXCSR 
BMI +4 
ERROR 4 ; TXDONE SHOULD BE SET 


3; THIS TEST PROVES THAT RXERR FREEZES THE “RECEIVER 

;;RESET" WHILE IN STRIP SYNC MODE 

3; THIS TEST FIRST PROVES THAT AUTOMATIC RESETS OCCUR 

;;WHEN STRIP SYNC IS SET AND SYNC CHARACTERS ARE SENT 

;;BUT IF AN ERROR SHOULD OCCUR... THIS AUTOMATIC RESET 

3; 1S DISCOMBOBULATED 

77 1E: FORCE OVERRUN (OVERRUN) WHILE STRIP SYNC IS SET 

;7BY TRANSMITTING A DATA CHARACTER THEN TRANSMIT A SYNC CHARACTER 
;7; AND DON'T READ THAT DATA CHARACTER. NOTE: NORMALLY THE LOGIC 
qe 5,3: By RXDONE & ERROR FLAGS PROVIDING THAT ONLY SYNC CHARACTERS ARE 
a3 | 

;;MODE: SYNC EXTERNAL (SYNEXT) 

;;LENGTH: EIGHT 

;;NOTE: THIS TEST USES BOTH RECEIVER AND TRANSMITTER LOGIC 


o? 


5; RERAAAAAAAARAAART ALARA ALAA AAA AAA AAA AAA AAA AAA AAA AAA AAA AAAS 
TST20: SCOPE 


BIS SMRESET.@TXCSR ;MASTER RESET 
MOV #SYNEXT, @PARCSR >; SET THE MODE 
BIS SMRESET.@TXCSR -;MASTER RESET 


SEQ 0044 


DZDUU-B MACY11 30(104%6) 


DZDUUB. M11 


007526 


007534 


007666 


007670 
007676 


007704 


012777 


012777 
112777 
052777 
016703 
012767 
052777 
042777 
012767 


052777 


104002 


012767 


112777 


012767 


052777 
042777 


21-SEP-77 O9: 
31-MAY-77 09: 50 


004020 


026026 
000026 
000420 
172134 
000003 
020000 
020000 
000010 


020000 
02000C 
171270 


172052 


171254 


000026 
172034 


000003 
000025 


000010 


020000 
020000 
171170 
171164 
171744 


140026 
171734 


172172 


172160 
172162 
172134 


171334 
172130 
172122 
171310 


172106 
172100 


171226 


172026 


171210 


172006 
172000 


22 PAGE 47 
INITIALIZE THE COMMON TAGS 


G 4 


*SET MAINTENANCE MODE & SEND 
NOTE: BIT WINDOWECLK ARE 
SMINT! SEND, @TXCSR 


+ SET cag OF BITS.PARITY SENSE,& LOAD SYNC REG 
beg pele bh yh te 


23: 
15: 


4S: 
35: 


MOV 


ERROR 


#26, dTXOBUF 


#3, COUNT 
CLK, @TXCSR 
#CLK, ATXCSR 
88... SHIFT 


#CLK. ATXCSR 
#CLK, dTXCSR 
SHIFT 

1$ 

@RXCSR 

. +4 

y 

COUNT 

2$ 

#26, R0 
ORXDBUF, R1 
RO. R1 

+4 

2 


#3, COUNT 

#25, dTXDBUF 

>ONE MORE SYNC C 
*THE "25" CHAR | 
;ALREADY UP) 


#8. .SHIFT 
#CLK,. dTXCSR 
#CLK,. dTXCSR 
SHIFT 
3$ 
COUNT 
4u§ 

aR XCSR 
+4 

4 ; RXDONE 


LOAD SY 
RSYNSCH!STPSYN, @RXCSR 
RXDBUF. RS :$ 


>RXDONE = 


CLEARED (MTOATA=0) 


YNC CHAR 
T UP FOR ERROR MESSAGE 
28 OF TIMES SYNC WILL BE SENT 
;POKE CLK UP 
;POKE CLK DOWN 
;# OF SHIFTS 
;POKE CLK UP 
;POKE CLK DOWN 
; RXDONE? 
;RXDONE SHOULD NOT ASSERT 


>; EXPECTED 
> ACTUAL 


+NOTE THAT OVERRUN SHOULD NOT OCCUR. 


+SET SYNC SEARCH & STRIP SYNC 


ALSO 


+SECOND & 3RD SYNC CHARACTER CAME FROM 


+SYNC HOLDING REGISTER 
># OF TIMES 
;LOAD ANY CHAR.... HOWEVER... 


HAR WILL BE SENT BEFORE 
S SENT (THE DONA BIT IS 


;# OF SHIFTS 


;POKE CLK UP 
;POKE CLK DOWN We 


1? 


SHOULD BE SET 


@RXERR'OVRRUN!26,.RO ; EXPECTED 


QR XOBUF.R1 
RO. R1 

+4 

2 


+ ACTUAL 


+NOTE THAT OVRRUN SHOULD OCCUR. 
>ALSO SECOND SYNC CHARACTER CAME 
+FROM SYNC HOLDING REGISTER 


———_- a 


SEQ 0045 


H 
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DZDUU-B MACY11 30(1046) 8 
INITIALIZE THE COMMON TAGS 


DZDUUB. N11 31-MAY-77 O09: 50 SEQ 0046 
2241 ;SUMMARY: THE OVRRUN STOPPED 
2242 ; THE AUTOMATIC RESETTING OF | 
ad ;RXDONE & ERROR FLAGS..... CHECK THIS 
2245 >; THIS TEST VERIFYS THAT EITHER SEQUENCE OF 
2246 ;;LOADING TXOBUF AND SETTING SEND 
2247 ;,D0ES CAUSE TRANSMISSION 
2248 ;+MODE: SYNC EXT 
oe ;;LENGTH: EIGHT 
2251 » > REXAAAAAAAAAAAA AAA AAA AAA AAA AAA AAA AAA AAA AAA A AAA AAA AAAS 
43 007770 oo00d04% TST21: SCOPE 
2254 007772 052777 OOO400 171726 BIS #MRESET. @TXCSR -;MASTER RESET 
2255 010000 012777 O20000 171714 MOV SSYNEXT, @PARCSR >; SET THE MODE 
a: 010006 052777 OO00400 171712 BIS #MRESET. @TXCSR -;MASTER RESET 
2258 ;SET MAINTENANCE MODE & SEND 
2259 ;NOTE: BIT WINDOWECLK ARE CLEARED (MTDATA=0) 
ey 010014 012777 OO4O20 171704 MOV #MINT!SEND, dTXCSR 
2262 ;SET MODE.& OF BITS. PARITY SENSE.& LOAD SYNC REG 
2263 010022 012777 O26026 171672 MoV #SYNEXT'E I GHT! NOPAR ! 26, aPARCSR 
2264 010030 016703 171672 Mov TXCSR, RI ;SET UP FOR ERROR MESSAGE 
2265 010034 042777 OO0020 171664 BIC #SEND, aTXCSR ;DROP SEND 
2266 010042 012767 OO0COZ25 171430 MOV #25. STMP1 
2267 010050 112777 OO00U25 171654 MOvVB #25, aTXOBUF ;LORAD CHARACTER 
2268 010056 052777 000020 171642 BIS #SEND, dTXCSR ;SET SEND 
2269 ;GET INTO SYNCRONIZATION 
2270 010064 052777 O20000 171634 BIS #CLK,. dTXCSR ;POKE CLK UP 
2271 010072 042777 O20000 171626 BIC #CLK, dTXCSR ;POKE CLK DOWN 
2272 010100 012767 OOO0010 171014 MoV #8.,SHIFT ;# OF SHIFTS 
2273 010106 005000 1S: CLR RO 
2274 010110 006067 171364 ROR STMP 1 
2275 01011% 103002 BCC 23 
ik 010116 052700 002000 BIS #B1TW.RO ;EQUIV OF BIT WINDOW 
2278 010122 25: 

2279 010122 052777 020000 171576 BIS #CLK, @TXCSR >POKE CLK UP 

2280 010130 042777 O20000 171570 BIC #CLK, dTXCSR ;POKE CLK DOWN 

2281 010136 017701 171564 MoV aTXCSR, R1 ; ACTUAL 

2282 010142 04%2701 075777 BIC #075777.R1 ;SAVE BIT WINDOW & DONA 
2283 010146 020001 CMP RO. R1 

2284 010150 001401 BEQ +4 

2285 010152 104003 ERROR 3 ;BIT WINDOW DID NOT MATCH ACTUAL DATA BIT 
2286 ;ALSO CHECK DNA 

2287 010154 005367 170742 DEC SHIFT 

2288 010160 001352 BNE 1% 

2289 

2290 

2291 

2292 ; THIS TEST VERIFYS THAT DROPPING OF SEND IN THE 

2293 ;;MIDOLE OF TRANSMITTING A CHARACTER DOES INDEED 

2294 ;7;F INISH TRANSMITTING THAT CHARACTER 

2295 ;;MODE: SYNC EXT 

2296 ;;LENGTH: EIGHT 


DZDUU-B MACY11 pth yb 


DZDUUB. M11 


010162 


010164 
010172 
010200 


010206 


010214 
010222 
010226 
010234 
010242 


010250 
010256 


010264 
010266 
010272 
010274 


010300 
010300 
010306 
010314 
010320 
010324 
010326 
010330 


010332 


31-MA 


000004 


052777 
012777 
052777 


012777 


012777 
016703 
112777 
012767 
012767 


052777 
042777 


005000 
006067 
103002 
052700 


052777 
042777 
017701 
042701 


000004 
052777 
012777 
052777 


21-SEP-77 0O9: 
09: 50 


000400 
020000 
000400 


004020 


026026 


020000 
020000 


171206 
002uU00 


020000 
020000 
171406 
075777 


170564 
000003 


000020 
170542 


000400 
030000 
000400 


171534 
171522 
171520 


171512 


171500 
171476 
171236 
170652 


171450 
171442 


171420 
171412 


170556 
171352 
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9 
INITIALIZE THE COMMON TAGS 


es 
7? 


+s MAERAAAAAARARAARALALA ALATA AA AAAS STAAL AA ALAA AAA AAA AAA AAAS 


TST22: SCOPE 


BIS 
MOV 
BIS 


MOV 


MOV 


1$: CLR 


2$: 


3$: TST 


3; THIS TEST VERIF *S THAT RXDONE 
;;MODE: SYNC INTERNAL 


;;LENGTH: EIGHT 


#MRESET. ATXCSR 
#SYNEXT, @PARCSR ; SET THE MODE 
#MRESET, aTXCSR 


+SET MAINTENANCE MODE & SEND 
*NOTE: BIT WINDOWECLK ARE CLEARED (MTDATA=0) 
#MINT! SEND, @TXCSR 


;SET MODE, # OF BITS.PARITY SENSE.& LOAD SYNC REG 


1 & 


SEQ 0047 


+MASTER RESET 
+MASTER RESET 


#SYNEXT!E IGHT! NOPAR ! 26. OPARCSR 

TXCSR. RS +SETUP FOR ERROR MESSAGE 
#252, dT XOBUF +LOAD DATA CHAR. 

#252. STMP1 +SHIFTED CHAR 

#8. , SHIFT +# OF SHIFTS 


;GET INTO SYNCRONIZATION 


#CLK, dTXCSR >;POKE CLK UP 

#CLK, d@TXCSR ;POKE CLK DOWN 

RO 

ed ;FORCE CARRY 

#BITW.RO ;EQUIV OF BIT WINDOW 

#CLK, ATXCSR >POKE CLK UP 

#CLK, dTXCSR ‘ POKE CLK DOWN 

aTXCSR, R1 ACTUAL 

#075777,R1 ; SAVE ONLY BIT WINDOW & DNA 

RO.R1 

_ +4 

3 >BIT WINDOW O10 NOT MATCH 
;ACTUAL DATA BIT 

SHIFT 

#3. SHIFT 

& SEND. dTXCSR ;DROP SEND 

SHIFT 

1$ ;D0 tT AGAIN? 


ASSERTS WHEN STRIP SYNC IS SET 


5 REXRRAAAAAAAAAL ALAA ALAA AAA AAA AAA ALARA 
SCOPE 


TST23: 
BIS 
MOV 
BIS 


SMRESET. dTXCSR 


*MASTER RESET 


RSYNINT. PPARCSR ; SET THE MODE 


RMRESET. ATXCSR 


;MASTER RESET 


DZDUU-B MACY11 30(1046) 
31-MAY-77 


DZDUUB. M11 


010406 


010414 
010422 
010430 
010436 
010444 


010452 
010460 


012777 


012777 
052777 
042777 
052777 
042777 
052777 
016703 
012767 


105767 


104002 


21-SEP-77 O39: 
09: 50 


064001 


036026 
000420 


020009 
020000 


020000 
020000 
171232 
000002 


170450 


170420 
000010 
000026 
006446 
170374 


004000 
171142 


000010 
000025 
006376 
171112 


000025 
171102 


171312 


171300 
171262 
171270 
171262 


171254 
171246 


170432 


176410 
170760 


171152 


170340 
170710 


22 


J 4 
PAGE 50 
INITIALIZE THE COMMON TAGS 


*+SET MAINT DATA, CLK, BREAK, BMAINTENANCE MODE 
MOV #NTDATAICLK! MINT! BREAK, dTXCSR 


*+SET MODE .# OF BITS.PARITY SENSE.&LOAD SYNC REG 
MOV SSYNINT!E IGHT! NOPAR ! 26, OPARCSR 


ASYNSCH!STPSYN, @RXCSR +SET SYNC SEARCH & 
TRIP SYNC 
INTO panto etd: Le dees 


BIS 
;POKE CLK TO GET RECEIVER 


BIC CLK, @TXCSR +POK E CLK 
BIS RCLK, @TXCSR 
*POKE CLK TO GET LOGIC INTO SYNCRONIZATION 
BIC CLK, ATXCSR +POKE CLK DOWN 
BIS CLK, dTXCSR +POKE CLK UP 
MOV RXDBUF.R3 +FOR ERROR MESSAGE 


MOV #2, COUNT ;# OF TIMES OF SYNC CHARS. 
aul TO SEE HOW MANY SYNC CHARS NEEDED 


SYNCNO 
BNI 3$ *WILL IT BE ONE OR TWO ? 


DEC COUNT ;MAKE IT ONE LESS 
33: MOV #8..SHIFT ;#OF SHIFTS 
MoV #26. STMP1 >SYNC CHAR 
JSR PC, RPOKE 
DEC COUNT ; 1S IT THE LAST SYNC CHAR ? 
BNE 3$ ;GO AGAIN AND SHIFT IN ANOTHER SYNC CHAR 
BIT #RECACT.ARXCSR -;RECACT=17? 
BNE +4 
ERROR 4 ;RECACT SHOULD BE ASSERTED 
TSTB OR XCSR ; RXDONE=07? 
BPL +4 
ERROR ty ;RXDONE SHOULD NOT BE ASSERTED 
MoV #8.,.SHIFT ;#OF SHIFTS 
MOV #25, STMP1 ; ANY CHARACTER 
JSR PC, RPOKE 
TSTB aR XCSR ; RXDONE=17 
BM! _ +4 
ERROR 4 ';RXDONE SHOULD NOW BE ASSERTED 
MOV #25,R0 > EXPECTED 
MOV OR XDBUF, PR 1 ; ACTUAL 
CMP RO. Ri 
BEQ +4 
ERROR 2 ; CHARACTERS SHOULD BE MATCHED 


>; THIS TEST VERIFYS THAT BY CSOPPING SYNSCH 
3; 1N THE MIDDLE OF A CHARACTER. SYNC CHARACTER SEQUENCE 
>; 1S NEEDED BEFORE RECACT. RXDONE ASSERT AGAIN. 
;;ALSO NOTE: SINCE RECACT 1S DEPENDENT ON MATCH DETECT. 
;;AND IF SYNSCH IS DROPPED IN THE MIDDLE OF 
;;A SYNC CHARACTER AND THEN RAISED AGAIN ; RXDONE SHOULD 
;;NOT ASSERT UNTIL NEW SYNC CHARACTER SEQUENCE ae aye HOWEVER 
;ONE “PAD” CHARACTER MUST PRECEED THIS JUGGLING OF SERRCH SYNC (SYNSCH) 
: MODE: SYNC INTERNAL (SYNINT) 


s@ 


SEQ 0048 


DZDUU-B MACY11 30(1046) 


DZOUUB. M11 


2409 
2410 
2411 
2412 
2413 
2414 
2415 
2416 
2417 


010622 


010624 
010632 
010640 


010646 


010654 
010662 


010670 
010676 


010704 
010712 
010720 
010726 
010732 
010740 
010746 
010752 
010756 


010760 
010764 


010766 
010774 
010776 
011000 
011004 
011006 


011010 
011016 


31-MAY-77 


000004 


052777 
012777 
052777 


012777 


012777 
052777 


042777 
052777 


042777 
052777 
012767 
016703 
012767 
012767 
004767 
005367 
001403 


105767 
100762 


032777 
001001 


104004 


012767 


21-SEP-77 O39: 


09: 50 


000400 
030000 
000400 


064001 


036026 
000020 


020000 
020000 


020000 
020000 
000002 
170764 
000010 
000026 
00€220 
170146 


170162 


004000 


170706 


000010 
000025 
006142 
170656 


170652 
000025 


171074 
171062 
171060 


171052 


171040 
171022 


171030 
171022 


171014 
171006 
170176 


170162 
170532 


170716 


170104 
170454 


K 4 


22 PAGE 51 
INITIALIZE THE COMMON TAGS 
+o REXKAAAAAAAAAAARAA ALARA AAA AAA AAA AA AAA AAA AAA AAA AAA AAA AAAS 
TST24: SCOPE 
BIS #MRESET.@TXCSR -;MASTER RESET 
MOV SSYNINT, @PARCSR ; SET THE MODE 
BIS @MRESET.@TXCSR -;MASTER RESET 
;SET MAINT DATA. CLK, BREAK, &SMAINTENANCE MODE 
MOV SMTDATAICLK! MINT! BREAK, ATXCSR 
;SET MODE .# OF BITS. PARITY SENSE.&LOAD SYNC REG 
MoV #SYNINT!E IGHT! NOPAR ! 26, dPARCSR 
BIS #SYNSCH, @RXCSR -;SET SYNC SEARCH 
;POKE CLK TO GET RECEIVER INTO SYNCROIZATION.... 
BIC #CLK, aTXCSR ;POKE CLK DOWN 
BIS #CLK, ATXCSR ;POKE CLK UP 
;POKE CLK TO GET LOGIC INTO SYNCRONIZATION 
BIC LK, dTXCSR +;POKE CLK DOWN 
BIS #CLK, dTXCSR ;POKE CLK UP 
MoV #2, COUNT ;# OF TIMES 
MOV RXDBUF.R3 ;FOR ERROR MESSAGE 
15: MoV #8.,.SHIFT ;# OF SHIFTS 
MoV #26. STMP1 ;SYNC CHAR. 
JSR PC, RPOKE 
DEC COUNT 
BEQ 2$ 
; TEST TO SEE HOW MANY SYNC CHARACTERS NEEDED 
TSTB SYNCNO 
BMI 1% 
23: BIT #RECACT. ARXCSR -;RECACT=1? 
BNE +4 
ERROR 4 ;RECACT SHOULD BE SET 
TSTB @RXCSR -;RXDONE = 0? 
BPL +4 
ERROR 4 ;RXDONE SHOULD = O 
; THE FOLLOWING ALLOWS THE RECEIVER “CHIP” TO RECOGNIZE THE DROPPING OF SYNSCH 
;... BASICALLY IT SIMULATES THE “PAD” CHARACTER REQUIREMENT AT THE END 
;O0F DATA TRANSFER. 
;ONE “PAD” CHARACTER IS REQUIRED TO FLUSH OUT SYNC CHARACTER 
;AND ... YOU HAVE TO DROP SYNSCH ON THE NEXT OR FOLLOWING CHARACTER 
;FOR A “CLEAN” RESTART 
MOV #8.,.SHIFT 38 OF SHIFTS 
MOV #25. STMP1 ;"PAD" CHARACTER 
JSR Pc, RPOKE ;SHIFT IN “PAD” CHARACTER 
TSTB @RXCSR ;RXDONE = 1 ? 
BMI . +4 
ERROR 4 ;RXDONE SHOULD = 1 
MOV aRXOBUF. R1 STORE ACTUAL & CLEAR RXDONE 
MoV #25.R0 -;EXPECTED 
a ee ;COMPARE EXPECTED DATA VS ACTUAL DATA 
_¢+ 


ERROR 2 ;DATA SHOULD COMPARE WITHOUT ERROR FLAGS 
; THE FOLLOWING |S THE SYNC CHARACTER AFTER THE “PAD” CHARACTER 


SEQ 0049 


DZDUU-B MACY11 30(1046) 


DZDUUB. M11 


011056 
011064 
011072 
011076 
011104 
011106 
011110 
011114 
011116 
011120 
011126 
011134 
011136 


011140 
011146 
011152 
011160 
011166 
011170 
011172 
011176 
011200 
011202 
011210 
011214 
011222 
011224 
011226 
011232 
011234 
011236 
011242 
011246 
011250 
011252 


011254 


011262 


012767 


001401 
104004 


012767 


21-SEP-77 09:22 PAGE 52 
INITIALIZE THE COMMON TAGS 


+ IN WHICH SEARCH SYNC (SYNSCH) IS JUGGLED TO CREATE AN ABORT SITUATION 
AT THE ~ OF A DATA TRANSFER SEQUENCE 


31-MAY-77 O09: 50 


000004 
000026 
006074 
004000 


170576 


000020 
004000 


000002 
006020 
000020 
004000 


170514 


000002 
005756 
004000 


170460 


000025 
170450 


170036 
170406 


170606 


170564 
170556 


167754 


176532 
170524 


167712 
170470 


167642 


167620 
170170 


170362 


ERROR 


#4, SHIFT 
get Hy 


PC 


y 
@RXCSR 
. +4 

y 


& 9 


RPOK 
a 
+ 


>; RXDONE 
; RXDONE 


#SYNSCH. @RXCSR 
RRECACT, ORXCSR 


+4 


+# OF SHIFTS 
+SYNC CHAR. 


+>RECACT=1? 


+RECACT SHOULD STILL BE SET 


SHOULD = 0 FROM PREVIOUS READING OF RXDBUF 


+DROP SEARCH SYNC 
+>RECACT=07 


4 +RECACT SHOULD NOT BE SET 
+NOW SHIFT TWO BITS TO ALLOW SEARCH SYNC =0 TO TAKE 
sEFFECT IN THE LOGIC(THIS ALLOWS THE RECEIVER CHIP TO SEE 
+ THE oe OF SEARCH SYNC) 


+# OF SHIFTS 
+SET SEARCH SYNC 


+RECACT=0? 


0 
;# OF SHIFTS TO FINISH UP THE SYNC CHARACTER 


+RECACT SHOULD NOT BE SET 


; RXDONE =0? 


;RXDONE SHOULD NOT BE ASSERTED 


s EXPECTED 


ACTUAL 
; COMPARE EXPECTED VS ACTUAL 


OV #2. SHIFT 

JSR PC, RPOKE 

BIS #SYNSCH, @RXCSR 
BIT #RECACT. @RXCSR 
BEQ +4 

ERROR 4 ;RECACT 
TSTB @RXCSR ;RXDONE 
BPL +4 

ERROR 4 ;RXDONE = 
MOV #2. SHIFT 

JSR PC, RPOKE 

BIT #RECACT. ARXCSR 
BEQ . +4 

ERROR 4 

TSTB @RXCSR 

BPL +4 

ERROR 4 

MoV #25.,R0 

MOV OR XDBUF. R1 

CMP RO. R1 

BEQ +4 

ERROR 


+ THEREFORE . 
+ THE FOLLOWING VERIFYS THAT THE RE SYNCRONIZATION COMES UP “CLEAN” 
Mov 


#2. COUN 


TST S *NCNO 
BNI 3$ 
DEC COUNT 
34: MoV #8.,.SHIFT 
MOV #26. STMP1 
JSR PC. RPOKE 
DEC COUNT 
BNE 3$ 
BIT #RECACT. ARXCSR 
BNE +4 


2 +CHARACTERS SHOULD BE MATCHED 
;REMBEMBER THAT THE ” 25 “ FROZE WHEN SYNSCH WAS DROPPED 
.25 WILL BE READ AND NOT 26 


+8 OF TIMES OF SYNC CHARS. 


; TEST TO SEE HOW MANY SYNC CHARS NEEDED 

B +HOW MANY SYNCS ARE YOU 0 TRAPPED FOR ? 
+WILL IT BE ONE OR TWO ? 
; IT WAS ONLY ONE NEEDED 


;#OF SHIFTS 
;SYNC CHAR 


+1S 1T THE LAST SYNC CHAR ” 
;GO AGAIN AND SHIFT IN ANOTHER SYNC CHAR 


+RECACT=1? 


SEQ 0050 


DZ0UU-B MACY11 30(1046) 


DZDUUB. M11 


011332 


011406 
011410 


011412 
011414 
011420 
011422 
011426 
011434 
011442 


011450 


011456 
011464 
011472 


011500 
011506 
011512 
011514 
011516 
011524 
011530 
011532 


011534 
011542 


31-MAY-7 


104004 
105777 
100001 
104004 
012767 
012767 
004767 
105777 
100401 
104004 
012700 
017701 
02C00i 
001401 
104002 


000004 
105767 
100155 
016703 
052777 
012777 
052777 


012777 


012777 
052777 
112777 
052777 
016702 
005302 
001376 
042777 


016702 


012767 


170352 


000010 
000025 
005606 
170322 


000025 
170312 


167533 
170270 
000400 


020000 
000400 


010020 


026026 
000020 
000025 
020000 


167406 


020000 
167370 


000010 


167550 
170120 


170272 
170260 
170256 


170250 


170236 
170220 
170232 


170220 


170202 


167360 


21-SEP-77 09:22 PAGE 53 
? 09: 50 


hn 4 


INITIALIZE THE COMMON TAGS 
*+RECACT SHOULD BE ASSERTED 
+ RXDONE=0? 


ERROR 


TSTB 


4 
aRXCS 
_ +4 

y 


#8. ,SHIFT 
#25, STMP1 
PC, RPOKE 


ORXCSR 
_ +4 

\y 
#25.,R0 


OR XOBUF. R1 


RO, R1 
44 


+RXDONE SHOULD NOT BE ASSERTED 
;#OF SHIFTS 
;ANY CHARACTER 


;RXDONE=17 
;RXDONE SHOULD NOW BE ASSERTED 


+; EXPECTED 
> ACTUAL 


; CHARACTERS SHOULD BE MATCHED 


+> THIS TEST VERIFYS THAT HOX MODE DISQUALIFIES THE 


+>RECEIVER WHEN SEND IS ASSERTED 


+;MODE: SYNC EXT 
>;LENGTH: EIGHT 
;+NOTE: 


TST2S5: 


THIS TEST WORKS ONLY IN MAINT. EXTERNAL MODE 
++ THIS TEST USES BOTH RECEIVER & TRANSMITTER LOGIC 
>; REXEAAAAAAAAAAAATARAA AAA ALAA AAA AAA AAA AAA AAA AAA AAA AAAS 


JMRBY 
1$ 


RXDBUF.R3 


#MRESET, dTXCSR 
#SYNEXT. @PARCSR 
#MRESET. aTXCSR 


+SET MAINTENANCE MODE & SEND 


23: 


; NOTE 


MOV 


;GET OUT OF THIS TEST IF “NO” 
+FOR ERROR MESSAGE 

+MASTER RESET 

+SET THE MODE 

+MASTER RESET 


: BIT WINDOWECLK ARE CLEARED (MTDATA=0) 


#MEXT! SEND, @TXCSR 


;SET MODE. # OF BITS.PARITY SENSE.& LOAD SYNC REG 
MoV #SYNEXT!E IGHT ! NOPAR ! 26, @PARCSR 


+SET SEARCH SYNC 
>ANY CHARACTER 


+POKE CLK UP 


+POKE CLK DOWN 


BIS #SYNSCH, @RXCSR 

MOVB #25. dTXDOBUF 

;POKE CLK FOR SYNCRONIZATION 
BIS #CLK, dTXCSR 

;WAIT FOR CABLE & ORIVER DELAYS 
MOV HOLD.R2 ;WAIT THIS AMT 
DEC RZ ; 

BNE ; 

sEXIT... 

BIC #CLK, dTXCSR 

;WAIT FOR CABLE & ORIVER DELAYS 
MoV HOLO.R2 ;WAIT THIS ANT 
DEC R2 ;WAIT 

BNE .°2 

, EX ; 

MOV #8.,.SHIFT 


;# OF SHIFTS 


SEQ 0051 


N 4 


DZDUU-B MACY11 30(1046) 21-SEP-77 09:22 PAGE 54 
Mil 09: 50 


DZDUUB. NM 31-MAY-77 INITIALIZE THE COMMON TAGS SEQ 0052 
2577 011542 052777 020000 170156 BIS #CLK, dTXCSR +POKE CLK UP 
2578 ;WAIT FOR CABLE & DRIVER DELAYS 
2579 011550 016702 167344 MOV HOLD.R2 ; WAIT THIS ANT 
2580 011554 005302 DEC R2 ;MAIT 
2581 011556 001376 BNE .°2 
2582 sEXIT... 
2583 011560 042777 O20000 170140 BIC #CLK, dTXCSR ;POKE CLK DOWN 
2584 ;WAIT FOR CABLE & ORIVER DELAYS 
2585 011566 0616702 167326 MOV HOLD.R2 >; WAIT THIS ANT 
2586 011572 005302 DEC R2 ;WAIT 
2587 011574 001376 BNE .°2 
2588 + sEXIT... 
2589 011576 005367 167320 DEC SHIFT ;># OF SHIFTS 
2590 011602 022767 OO00003 167312 CMP #3, SHIFT ;1S tT TIME TO LOAD NEXT CHAR ? 
2591 011610 001003 BNE 3$ 
2592 011612 112777 QO00024 170112 MOVB #24, aTXDBUF ;LOAD NEXT CHAR. 
2593 011620 005767 167276 33: TST SHIFT 
2594 011624 001346 BNE 2$ 
2595 011626 105777 170060 TSTB aRXCSR ; RXDONE=17 
2596 011632 100401 BMI +4 
2597 011634 104004 . ERROR 4 +RXDONE SHOULD BE SET 
2598 011636 012700 000025 MOV #25,R0 >; EXPECTED 
2599 011642 017701 170050 MOV @RXDBLF.R4 > ACTUAL 
2600 011646 020001 CMP , 
2601 011650 001401 BEQ . +4 
2602 611652 104002 ERROR 2 ; CHARACTERS SHOULD COMPARE 
2603 011654 052777 O00U10 170044 BIS #HDXEN, aTXCSR ;SET HALF DUPLEX HDX 
2604 011662 012767 000010 167232 MOV #8. ,.SHIFT ;# OF SHIFT 
2605 011670 4§: 
2606 011670 052777 OG20000 170030 BIS #CLK, ATXCSR +>POKE CLK UP 
2607 ;WAIT FOR CABLE & DRIVER DELAYS 
Z608 011676 016702 167216 MOV HOLD.R2 ;WAIT THIS ANT 
2609 011702 005302 DEC R2 ;WAIT 
2610 011704 001376 BNE ,=2 
2611 SENT... 
2612 011706 042777 O20000 170012 BIC #CLK, ATXCSR ;POKE CLK DOWN 
2613 ;WAIT FOR CABLE & DRIVER DELAYS 
2614 011714 016702 167200 MOV HOLD.R2 ; WAIT THIS ANT 
2615 011720 005302 DEC R2 ;WAIT 
2616 011722 GU01376 BNE a | 
2617 sEM0T... 
2618 011724 005367 167172 DEC SHIFT 
2619 011730 001357 BNE 4% 
2620 011732 105777 167754 TSTB OR XCSR ; RXDONE =07 
2621 011736 100001 BPL +4 : 
2622 011740 104004 ERROR 4 ;RXDONE SHOULD NOT BE ASSERTED 
2623 ;CHECK OUT HDX LOGIC 
2624 011742 017701 167750 MOV OR XOBUF.R1 > ACTUAL 
2é25 011746 020001 CMP RO. R1 
2626 011750 001401 BEQ . +4 
2627 011752 104002 ERROR 2 +; CHARACTERS SHOULD COMPARE 
2628 ;NOTE THAT CHARACTER 25 WILL BE FROZEN 
2629 > IN THE RXOBUF EVEN THOUGH CHARACTER 24 WAS 
2630 ;SENT TO THE RECEIVER 
2631 
2632 011754 1$: 


DZDUU-B MACY11 30(104%6) 


DZDUUB. M11 


011754 
011756 
011764 
011772 


012000 


012006 
012014 
012022 
012026 
012034 


012042 
012050 


012170 
012174 


000004 
052777 
012777 
052777 


012777 


012777 
052777 
016703 
012767 
112777 


052777 
042777 
012700 
012767 


21-SEP-77 09:22 PAGE 55 
INITIALIZE THE COMMON TAGS 


31-MAY-77 O09: 50 


000400 
020000 
000400 


004020 


026026 
000020 
167670 
000002 
000025 


020uU00 
020000 


000025 
000010 


020000 
020000 
167012 
000003 


000024 
166770 
167552 
167546 
000001 
000000 
166730 


167742 
167730 
167726 


167720 
167706 
167670 


167070 
167670 


167656 
167650 


167032 
167630 
167622 
167004 
167604 


167542 


+; THIS TEST VERIFYS THAT BREAK FORCES A SPACE CONDITION 


+;0N THE LINE WHILE TRANSMITTING 


+; THIS TEST USES BOTH THE RECEIVER AND TRANSMITTER LOGIC 


>; MODE: 


*-* 
¢? 


SYNC EXT (SYNEXT) 
+;LENGTH: EIGHT 


ae RR ee ees 


TST26: 
BIS 
MoV 
BIS 


#MRESET. @TXCSR 
®SYNEXT, @PARCSR >; SET THE MODE 
RMRESET, aTXCSR 


+SET MAINTENANCE MODE & SEND 
;NOTE: BIT WINDOWRCLK ARE CLEARED (MTDATA=0) 


+MASTER RESET 
+MASTER RESET 


®SYNEXT!E IGHT ! NOPAR ! 26. @PARCSR 


*SET SEARCH SYNC 
+FOR ERROR MESSAGE 


7+# OF TIMES 
;ANY CHARACTER 


+POKE CLK UP 
+POKE CLK DOWN 
> EXPECTED 

+# OF SHIFTS 


>POKE CLK UP 
*POKE CLK DOWN 


+LOAD NEXT CHAR 


> RXDONE=17 


+ ACTUAL 


;SET BREAK 
>; EXPECTED 


MoV #MINT! SEND, dTXCSR 
+ SET ome OF BITS. PARITY SENSE.& LOAD SYNC REG 
BIS SSYNSCH, @RXCSR 
MoV RXOBUF.R3 
MOV #2, COUNT 
_ MOVB #25, dTXOBUF 
>;POKE CLK FOR SYNCRONIZATION 
BIS #CLK, dTXCSR 
BIC #CLK, dTXCSR 
MOV #25,R0 
1$: MOV #8. ,.SHIFT 
23: 
BIS #CLK, ATXCSR 
BIC #CLK, ATXCSR 
DEC SHIFT 
CMP #3, SHIFT 
BNE 3$ 
MOvVB #24, aTXOBUF 
35: TST SHIFT 
BNE 2$ 
TSTB @RXCSR 
BMI +4 
ERROR 4 
MOV OR XDBUF. R1 
CMP RO, R1 
BEQ . +4 
ERROR 3 
BIS BREAK, dTXCSR 
MOV #0,.R0 
DEC COUNT 
BNE i$ 


>; THIS TEST VERIFYS THAT DSC CAUSES AN INTERRUPT 
>; THIS TEST ONLY WORKS IN MAINT EXTERNAL MODE 


++ INTERRUPT VECTOR: 


DUR IV 


SEQ 0053 


DZDUU-B MACY11 30(104%6) 


DZDUUB. M11 


012176 
012200 


012254 


012256 
012262 
012266 
012270 
012272 
012300 
012304 
012312 
012320 


012322 
012330 
012336 
012340 
012342 
012344 
012352 


012360 
012366 
012370 
012374 


012374 
012376 
012402 
012404 
012406 
012412 
012416 
012422 
012424 
012430 
012432 
0124 36 


31-MAY-77 


106427 
005777 
100401 
104004 
042777 
012716 
016777 
012777 
000002 


052777 
052777 
005000 
005200 
001376 
016777 
012777 


042777 
104004 
106427 


21-SEP-77 Q9: 
09: 50 


166747 


000400 
166731 


000000 
167456 
012256 
004564 
000000 


000340 
167424 


000040 
012370 
167430 
000000 


000040 
00C002 


167370 
000000 


000040 
000340 


000340 


012640 
015351 
166530 


166536 


015363 
166524 


167512 


167462 


167474 
167470 


167412 
167424 
167420 


167362 
167354 


167364 
167360 


167324 


c 65 
22 PAGE 56 
INITIALIZE THE COMMON TAGS 


+> MAERERAAAAAAAAAIAAAAAAAAAA AAA AAA A AAA AAA AAT AAA AAA AAA STAI ITF 
TST27: SCOPE 


TSTB JMRBY 
3$ 


BIS RMRESET. STXCSR 
TSTB OPTCLR 
BMI 5$ + YES 
MoV #0, aRXCS 
TST ORXCSR 

5S: MOV 84S, ODUR IV 
MOV DUPRT. @DUR IS 
MTPS #0 


+ 1N MAINT EXTERNAL? 


IF ANSWER NO JUMP PROUND TEST 


MASTER RESET 
+ 1S THE OPTIONAL CLR JUMPER IN ? 


THE UNRESETTABLE BITS 


R + CLR 
;GET RID OF DSC BY READING RXCSR 
+SET UP TRAPCATCHER 


* ALLOW INTERRUPTS 


BR 1$ ; JUMP AROUND INTERRUPT SVC ROUTINE 
aw ~~ s IS ny INTERRUPT SVC ROUTINE 


BMI pa) 
ERROR 4 
BIC #OS INTE. ARXCSR 
MOV #23, (SP) 
MOV DUR 1S. dDUR IV 
MOV #0, dDURIS 
RTI 

1$: BIS #OS INTE. IRXCSR 
BIS #DTR, ARXCSR 
CLR RO 
INC RO 
BNE .°2 
MoV DUR IS, dDUR IV 
MOV #0, ADURIS 
BIC #OS INTE, ARXCSR 
ERROR Mi 

23: MTPS #340 

33: 


+END OF PASS 
+TYPE NAME OF TEST 
;UPDATE PASS COUNT 


;DON'T ALLOW ANYMORE INTERRUPTS 


;O0SC=1? 


+FALSE INTERRUPT 
*CLEAR INTERRUPT ENABLE 
+SET UP RETURN LOCATION 
+RESTORE TRAPCATCHER 


>SET INTERRUPT ENABLE 
+TRY TO CAUSE INTERRUPT 
;WAIT FOR INTERRUPT 
;RESTORE TRAPCATCHER 


/ 


>CLEAR INTERRUPT ENABLE 
; INTERRUPT FAILED TO OCCUR 


;CHECK FOR EXIT TO ACT-11 


;RESTART TEST 


. EOP: SCOPE 
JSR PC, CKSWR 
TYPE 
MEPASS 
CONVRT ,OUTCRY 
TYPE , DEVICE 
TSTB MUL TO 
BEQ ccc 


BNE RUNIT ;YES 
TYPE »-MCOW ;NO 
MOV ACTREG. RO 


> TYPE NAME OF TEST 


;ARE YOU RUNNING MULTIPLE DEVICES ”? 
+NO, JUMP AROUND 
;ARE ANY DEVICES ACTIVE ? 


*DISPLAY ACTREG 


SEQ 0054 


DZDUU-B MACY11 30(104%6) 


DZDUUB. M11 


2745 
2746 
2747 





012442 


012514 
012522 


012630 
012636 


012640 
012642 
012644 


012646 
012646 


31-MAY-77 


000000 


000167 
062767 
062767 
000241 
006167 
103410 


036767 


012767 


016767 
016767 


012767 
004767 
000167 


21-SEP-77 O9: 
09: 50 


167502 
000010 
000010 


166476 


166479 


000034 
000210 
000001 


166430 


167102 


002 


166530 
166540 
166521 
166224 
166220 
166212 
000042 


003376 
000004 
170346 


166476 
166476 


166464 


166446 


166424 
166424 


004416 


167152 
166370 
167140 
166354 
167126 
166340 
167114 
166324 


166206 
166632 


166454 


22 PAGE 


57 
INITIALIZE THE COMMON TAGS 


RUNIT: 
ZERO: 


23: 


REPLAY: 


OUTCRY: 


CCC: 


SE NDAD: 


RESTRT: 


HALT 
o_—' SWITCHES & HIT CONTINUE ¢ 


+SELECT Sian aa ae’ ei} AC TREG: 

START ;START OVER AGAIN...... YOU DESELECTED EVERYTHING 
#10, BASERDD +NEXT BLOCK (CADORESSES) 

#10. BASE IV +NEXT BLOCK (VECTORS) 


ROTADD ;UP DATE ROTATING POINTER 
2$ +1S iT THE LAST DEVICE 
+TO BE TESTED IN THIS PASS ? 
ROTADD.ACTREG ; TEST THIS DEVICE FOR ACTIVE STATUS 
RUNIT ; 1F NOT ACTIVE. TRY NEXT ADDRESS 
PC, REPLAY + CALCULA ARAME TERS 
RESTRT ;YES IT WAS ACTIVE. TEST THIS DEVICE 
#1,ROTADD ;OK!,NOW SET UP ROTATING 
;POINTER FOR NEXT MULTIPLE PASS 
KEEPADD. BASEADD ; RESTORE BASE ADDRESS 
KEEPIV,BASEIV -;RESTORE BASE INTERRUPT VECTORS 
PC, REPLAY +CALC NEW PARAMETERS 
ccc ; JUMP AROUND REPLAY 


BASEADD.DUBASE ;SET UP FOR NEW ADDRESSES 
PC, DURDOR +CREATE NEW ADDRESSES 
BASE IV. DUR IV +CREATE DURIV 

#2, BASE IV 

BASE IV. DURIS >CREATE DURIS 

#2, BASE IV 

BASE IV. DUTIV +CREATE DUTIV 

#2, BASE IV 


+CREATE DUTIS 
STORE 


BASE IV.DUTIS 
* ghbvohamenee >RE 


6,2 

STSTNM >CLEAR TEST NUMBER 
SERRPC >CLEAR LAST ERROR PC 
SERFLG >CLEAR ERROR FLAG 
PASCNT ;UPDATE PASS COUNT 
PASCNT. LIGHTS >DISPLAY PASS COUNT 
PASCNT, SPASS >PASS COUNT TO APT 
#42, R1 ;CHECK FOR ACT-11 OR DOP 
RESTRT > 1F NO CONTINUE TESTING 

Pc, (R11) 

#TST1+2,SLPADR ;LOAD LAST ADDR 

PC, CKSWR 

. BEGIN 


> CHECK SWITCH REGISTER ROUTINE. 


SEQ 0055 


DZDUU-B8 MACY11 30(104%6) 
31-MAY-77 09:5 


DZDUUB. M11 


012742 
012746 
012750 
012756 
012760 
012764 
012766 
012774 
013002 
013010 
013012 
013016 
013022 


013062 
013064 


013066 


013070 
013074 
013102 
013104 
013110 


005737 


000005 


004767 
032777 
001402 
016716 
000002 


000042 
000176 
166460 
166454 
177600 
000007 
016137 


013056 
016147 


016160 


001 
013056 


002 


177646 
001000 


166000 


166462 


000422 
000414 
000406 


166336 


ot oe 09:22 PAGE 58 


INITIALIZE THE COMMON TAGS 


*CHECKS TO ALLOW FOR 
+ THE CHANGING OF LOCATION 176 


CKSWR: 


CNTLU: 


. BYTE 
OUT: 


RDOSW: 


SWREGL: 


. SCOP 1: 


+ XNOTE1: 
+ SNOTE 2: 
+ weep 


* $CALL 


‘¥1) USING A TRAP INSTRUCTION 
- MESADR 


TST 0842 
BNE OUT 
CMP #SWREG, SHR 
BNE OUT 
TSTB asTKs 
BPL OUT 
MOV eSTKB.. MSG 
BIC #177600... MSG 
CMPB #7,. 
BNE OUT 
TYPE -MCNTG 
COM at ROSW 
TYPE , MMSHR 
CONVRT 
WREGL 
INSTR, MMNEW 
PARAM 
177777 
SWREG 
0,1 
CLR a#ROSW 
RTS PC 
.WORD O 
1 
.BYTE 6,2 
SWREG 
5 


« G> TO ALLOW 


; SOFTWARE SWR PRESENT? 
;NO--LEAVE 

; CHECK TTY READY 

; NO--LEAVE 

;GET CHARACTER 

7STRIP JUNK 

;IS tt < G ? 

;NO 


>CHECK FOR FREEZE ON CURRENT DATA 


PC, CKSWR 
#SWO9, ASHR 


1$ 

LOCK, (SP) 
1$: RTI 

.SBTTL TYPE ROUTINE 
3; RAAAAAAKAAAAAARA AAA AAA AAT AAAASAAAAAAATARAAAAA AAA AAA ALAA 


; ROUTINE TO TYPE ASCIZ MESSAGE. MESSAGE MUST TERMINATE WITH A O BYTE. 
;%THE ROUTINE WILL INSERT A NUMBER OF NULL CHARACTERS AFTER A LINE FEED. 


JSR 
BIT 
BEQ 
MoV 


TYPE 


TYPE 
ME SADR 


SNULL CONTAINS THE CHARACTER TO BE USED AS THE FILLER CHARACTER. 


SF ILLS CONTAINS THE NUMBER OF FILLER CHARACTERS REQUIRED. 
SFILLC CONTAINS THE CHARACTER TO FILL AFTER. 


+;MESADR IS FIRST ADDRESS OF AN ASCIZ STRING 


SEQ 0056 


DZDUU-B MACY11 30(1046) 


DZDUUB. M11 


013112 
013116 
013120 
013122 
013124 
013126 
013132 
013140 
013142 
013150 
013152 
013156 
013162 
013164 
013172 
013174 
013176 
013200 
013202 
013204 
013210 
013212 
013216 
013220 
013224 
013226 
013230 
013232 
013234 
013240 
013242 
013246 
013252 
013254 


013260 
013264 
013266 
013272 
013276 


013346 
013350 


105767 
100002 
000000 
0004 30 
010046 
017600 
122767 
001011 
132767 
001405 
010067 
004767 
000000 
132767 
001003 
112046 
001005 
005726 
012600 
062716 
000002 
122716 
001430 
122716 
001006 
005726 
104401 
001523 
105067 
000755 
004767 
126726 
001350 
016746 


105366 
002770 
004767 
105367 
000770 


112716 


21-SEP-77 O09: 
31-MAY-77 O09: 50 


166341 


000002 
000001 


000109 
000004 


000006 ' 


000040 


000002 
000011 
000200 


000130 


000056 
166204 


166174 
000001 


000032 
000072 


000040 
000014 


166406 
166377 


166355 


000007 000052 


166120 
000002 


166112 


000015 000002 


000014 


22 PAGE 59 
TYPE ROUTINE 


STYPE: 


15: 


613: 
625: 


23: 
603: 
33: 
4§: 


55: 
6$: 


7$: 


85: 
95: 


STYPEC: 


STPFLG 
1$ 


3$ 

RO, - (SP) 
@2(SP),RO 
#APTENV, SENV 
62$ 

RAP TSPOOL. SENVM 
62$ 


RO. 61$ 
‘eae 


SAP TCSUP, SENVM 
60$ 
(RO)+,-(SP) 

4u§ 

(SP )+ 

(SP)+,R0 

#2, (SP) 

#HT. (SP) 

8$ 

———— 


$ 
(SP )+ 


SCHARCNT 
2$ 


PC, STYPEC 
haath 


2 

1(o)) 

6$ 

PC, STYPEC 
SCHARCNT 
7$ 
PROCESSOR 
#' . (CSP) 


PC, STYPEC 
#7, SCHARCNT 
9$ 


2(SP). aSTPB 
CR. 2¢0SP) 


1$ 
SCHARCNT 


+7 1S THERE A TERMINAL? 
;7BR IF YES 

;;HALT HERE IF NO TERMINAL 

+, LEAVE 

+; SAVE RO 

;,GET ADDRESS OF ASCIZ STRING 
;;RUNNING IN APT MODE 

;-NO,GO CHECK FOR 4 oo 
;;SPOOL MESSAGE TO AP 

;+NO,GO CHECK FOR CON SOL £ 

;;SETUP MESSAGE ADDRESS FOR APT 
;;SPOOL MESSAGE TO APT 

;;MESSAGE ADDRESS 

;;APT CONSOLE SUPPRESSED 

>; YES, SKIP TYPE OUT 

;;PUSH CHARACTER TO BE TYPED ONTO STACK 
;;BR IF IT ISN'T THE TERMINATOR 

i: 1F TERMINATOR POP IT OFF THE STACK 
;+RESTORE RO 

;;ADJUST RETURN PC 

;;RETURN 

;;BRANCH IF <HT> 


+;BRANCH IF NOT <CRLF> 


;;POP <CR><LF> EQUIV 
>; TYPE A CR AND LF 


;;CLEAR CHARACTER COUNT 

;;GET NEXT CHARACTER 

;;GO TYPE THIS CHARACTER 

;71S tT TIME FOR FILLER CHARS. ? 
>; 1F NO GO GET NEXT CHAR. 

>;GET # OF FILLER CHARS. NEEDED 
;;AND THE NULL CHAR. 

;;DOES A NULL NEED TO BE TYPED? 
;;BR IF NO--GO POP THE NULL OFF OF STACK 
;;GO TYPE A NULL 

;;DO0 NOT COUNT AS A COUNT 

>; LOOP 


;>REPLACE TAB WITH SPACE 

+; TYPE A SPACE 

;;BRANCH IF NOT AT 

+; TAB STOP 

;,POP SPACE OFF STACK 

;;GET NEAT CHARACTER 

;;WAIT UNTIL PRINTER (|S READY 


+,LOAD CHAR TO BE TYPED INTO DATA REG. 
++ 1S CHARACTER A CARRIAGE RETURN? 
>;BRANCH IF NO 

+; YES--CLEAR CHARACTER COUNT 


SEQ 0057 


DZDUU-B MACY11 30(104%6) 


DZDUUB. M11 


013354 


013372 


013374 
013402 
013406 
013412 
013414 
013416 
013420 
013424 
013430 
013434 
013436 
013442 
013446 
013452 


000406 
122766 
001402 
105227 
000000 
000207 


017667 
062716 
10&767 
001036 
104401 


122714 


21-SEP-77 09:22 PAGE 60 
TYPE ROUTINE 


31-MAY-77 O09: 50 


000012 000002 


000000 000014 
000002 


166134 


016172 
000007 
166010 
166004 
000200 
000025 
000015 
165/762 


165752 


000162 
000160 
000156 
000154 
000151 


000060 
000067 
000060 
000015 


165754 


15: 


INCB 
SCHARCNT: . WORD 


STYPEX: 


. INSTR: 


. INSTI: 
0 


. MSG: 


1$: 


2$: 


_INSTE: 


INSTR2: 


. PARAN: 


PARAMI: 


BR 
CMPB 
BEQ 


RTS 


STYPEX 
#LF.2¢SP 
STYPEX 
(PC)+ 


PC 


) 


,s EXIT 

3; 1S CHARACTER A LINE FEED? 
;;BRANCH IF YES 

;;COUNT THE CHARACTER 

>; CHARACTER COUNT STORAGE 


;ASCII STRING INPUT ROUTINE 
a(SP),. MSG 


#2, (SP) 
SENV 
INSTR2 


# INBUF,. RY 


#7.R3 
aSTKS 
1$ 


+PICK UP MESSAGE 

; JUMP AROUND MESSAGE FOR RT! 
>APT CONTROL 

+YES NO TYPE 


;GET STARTING LOC OF INBUF 
;MAX # OF CHARS 


; TTY FLAG 


OSTKB, (RY) 


#200, (R4 
(R4), #25 
INST1 
(R4Y)+, #1 
INSTR2 
Sb 


2 
aSTKB. aS 
R3 
1$ 


;7 
_ INSTI 


) 


5 


; TAKE CHAR 


+ STRIP 


;IS IT < @ 
>CHECK FOR CR 


; TEST FLAG 


TPB 


RETRY 


>ECHO CHARACTER 
*DID YOU TYPE TOO MANY CHARS ” 


;CONVERT ASCII STRING TO OCTAL 


(SP).RS ;PUT CONTENTS OF SP INTO RS 
>PUT LOW LIMIT INTO LOLIM 


(R5)+,LOLIM 


(R5)+, HI 
(R&)+, DE 
(R5)+,L0 
(R5)+, AD 


RS 

# INBUF.R 
#15, (RY) 
PARERR 
(RY), 860 
PARERR 
(R4Y), 867 
PARERR 
#60, (R4) 
(R4Y)+,R5 
#15, (RY) 


LIM 

VADR 
BITS 
RCNT 


4 


;YOU TYPED C 


>PUT HIGH LIMIT INTO HILIM 
+PUT STORE LOC INTO DEVADR 
>PUT MASK INTO LOBITS 

+PUT COUNT INTO ADRCNT 

RS. (SP) ; RESTORE RETURN ADDR ON STACK FOR RTI 


CR ? 


R TOO SOON | 
;LOW LIMIT ASCII; O 


*>HIGH LIMIT ASCII 7 


; CONVERT TO OCTAL 
;STORE AWAY ITS AN OK CHAR 
;CR ? 


—_— 


SEQ 0058 


DZDUU-B MACY11 30(1046) 
31-MAY-77 


DZDUUB. M11 


013634 


013636 
013642 
013644 
013650 
013652 
013656 


013660 
013664 
013666 
013672 
013676 
013700 
013702 
013704 
013706 
013710 


013712 


013720 
013724 
013730 
013734 
013740 
013744 
013750 


013752 
013756 
013762 
013766 
013772 


001414 


000742 


020567 
101365 
020567 
103762 
136705 
001357 


016704 


013711 


016667 


010567 
010467 
010367 
010267 
010167 
010067 
000002 


016700 
016701 
016702 
016703 
016704 


09 


000015 
013056 


000042 
000032 
000032 


000022 


000002 
000u13 


000004 


165550 
165542 
165534 
165526 
165520 
165512 


165504 
165502 
165500 
165476 
165474 


21-SEP-77 09:2 
: §0 


165206 


2 PAGE 61 
TYPE ROUTINE 
BEQ LIMITS ;NOW CHECK FOR HIGH &LOW LIMIT CONDS 
ASL RS ;ALLOCATE ROOM FOR NEXT CHAR 
ASL RS 
ASL RS 
BR 1$ 
PARERR: CMPB #15, (RY) +CR? 
BNE 120% 
TST atROSW *CK SWR USED 
BNE PARTI 
120$: INSTER ; RETRY 
BR PARANI 
+ TEST TO SEE IF NUMBER IS WITHIN LIMITS 
LIMITS: CMP RS, HILIM 
BHI PARERR ;THE # IS TOO HIGH 


CMP RS,LOLIM 

BLO PARERR ;THE # IS TOO LOW 

BiTB LOBITS,.RS + TEST BY MASKINGTHE & 
BNE PARERR 


>STORE NUMBER AT SPECIFIED ADDRESS 
MOV DEVAOR, RY +GET STARTING ADDR OF 


1$: MOV RS, (R4Y)+ ;STORE AT THIS ADOR 
ADD #2,R5 
DECB ADRCNT ;HOW MANY TIMES + 2 ? 
BNE 1$ 

PARTI: RTI 

LOLIM: OQ 

HILIM: OQ 

DEVADR: 0 

LOBITS: O 


ADRCNT=LOBITS+1 
>SAVE PC OF TEST THAT FAILED AND RO-RS 


. SAVOS: MOV 4 (SP), SAVPC 
>SAVE RO-RS 
SvO0Ss: MOV RS, SREGS 


MOV R4, SREG4 
MoV R3, SREGS 
MOV RZ. SREGZ 
MOV Ri, SREG1 
MoV Ro, SREGO 


RTI 
+RESTORE RO-RS 
.RESOS: MOV SREGO. RO 


MOV SREG1.R1 
MoV SREGZ,R2 
MOV SREGS.R3 
MOV SREGY. RY 


SEQ 0059 


DZDUU-B MACY11 3011046) 


DZDUUB. M11 


013776 
014002 


014004 
014006 
014010 
014014 
014020 
014024 
014030 
014034 


014162 
014166 
014174 
014176 
014200 


016705 
000002 


104401 
015463 
017601 
062716 
012167 
112167 
112167 
012167 


016704 


017605 


31-MAY-77 09:5 


165472 


000000 
000002 
000139 
000126 
000123 
000120 


000114 
000106 
016234 


177770 
000260 


016276 
000042 
000035 


000240 
000023 


000004 


000000 


000116 001776 


T aw 09:22 PAGE 62 


TYPE ROUTINE 


. CONVR: 


1$: 


23: 


35: 


4S: 


55: 


6S: 


WROCNT: 
CHRCNT: 
SPACNT=CHRCNT +1 


MOV 
RTI 


SREGS. RS 


*+CONVERT OCTAL NUMBER TO ASCII! AND OUTPUT TC TELEPRINTER 


0 


BINWRD: O 


;COMPARE THE FIRST CHARACTER IN THE TELETYPE INPUT 
;BUFFER TO THE CHARACTERS “N" AND "Y”. 

;1F THE CHARACTER IS “N" CLEAR THE FLAG 

+ 1F THE CHARACTER IS “Y" SET THE FLAG 


. SETFLG: MOV 


CMPB 
BNE 
CLRB 
BR 


;CR LF 
a(SP).R1 ;PIiCK UP DATA POINTER 
#2, (SP) ;SET UP SP FOR RTI 
(R1)+,WROCNT ;PICK UP # OF WORDS FROM TABLE 
(R1)4, CHRCNT ;PiCK UP # OF CHARS FROM TABLE 
(R1)+, SPACNT ;PiICK UP @ OF SPACES FROM TABLE 
a(R1)+,BINWRD ;>PICK UP ADDRESS OF MSG 
;FROM TABLE 
BINWRD. RY ; SAVE 
CHRCNT. RS ; SAVE 
#TEMP.RO : START ING ADORESS OF TEMP BLOCK 
R4Y,R3Z ; SAVE 
#177770,.R3 CLR OUT UPPER BITS .. SAVE CHAR 
#260,.R3 ; CONVERT TO ASCII 
R3, (RO)+ ;STORE AWAY 
a) ;SHIFT FOR NEXT & 
RY ;DITTO 
RY ;DITTO 
R5 ; DEC CHAR COUNT 
3$ ;00 IT AGAIN ? 
#MNDATA, RZ ; STARTING ADDRESS OF MDATA BLOCK 


-(RO), (R3)+ ;REVERSE THE ORDER OF NUMBERS 
CHRCNT ;DEC CHAR COUNT 

4§ +00 IT AGAIN ? 

SPACNT ;HOW MANY SPACES ”? 

6$ +TYPE @ IF BR =0 

#240, (R3)+ ;"SPACE" IN ASCII 

SPACNT ;DEC # OF SPACE COUNT 

5$ +00 IT AGAIN ? 

(R3) ; INSERT "O" FOR TTY OUTPUT ROUTINE 


> THIS MESSAGE 

WROCNT ;HOW MANY #'S ? 

1$ >00 THIS ROUTINE AGAIN IF NOT EQUAL TO 0 
;RETURN TO PROGRAM 


a(SP).R5 
#'N. INBUF 


1$ 
(RS) > 000 
2$ 


:1$ 17 “N* 7 


SEQ 0060 


DZDUU-B MACY11 30(104%6) 


DZDUUB. M11 


014202 
014210 
014212 
014216 
014222 
014224 
014226 


014230 
014230 
014234 
014236 
014244 
014252 
014254 
014260 
014264 
014270 
014276 
014304 
014312 
014314 
014320 
014324 
014324 
014332 


014412 


31-MAY-77 


122767 
001005 
112715 
062716 
000002 
104407 
000755 


105267 
001775 
016777 
032777 
001402 
104401 
005267 
011667 
162767 
117767 
032777 
001004 
004767 
104401 


122767 


016716 


000002 
010067 


21-SEP-77 09:22 PAGE 63 


09: 50 
000131 


177777 
000002 


165147 


165140 
002000 


001516 
165126 
165126 
000002 
165114 
020000 


000072 
001523 


000001 
165054 


000016" 


165062 


001000 


165012 
165112 


165104 


164512 


001762 


165176 
165166 


165120 
165110 
165126 


165214 
000004 


165050 


15: 


23: 
34: 
. SBTTL 


TYPE ROUTINE 


CMPB #'Y, INBUF 
BNE 3$ 

MOVB #-1, (RS) 
AOD #2, (SP) 


RTI 

INSTER ;RETRY 

BR . SETFLG 
ERROR HANDLER ROUTINE 


:38 0 "¥" FT 
+377 


+s MAEXAAAAAAAAATLALALALAAAAAAA AA AAA AAA AAA AAA AAA AAA AAA AAA AAT Ty 
+*THIS ROUTINE WILL INCREMENT THE ERROR FLAG AND THE ERROR COUNT. 
+ *SAVE THE ERROR ITEM NUMBER AND THE ADDRESS OF THE ERROR CALL 

+*AND GO TO SAVIT ON ERROR 
+XTHE SWITCH OPTIONS on eee BY THIS ROUTINE ARE: 


> *SW15=1 
;xSW1i3= 
>; *SW10=1 
; xSW09=1 


> XCALL 


, 


SERROR: 
7$: 


1$: 


205: 


2135: 
223: 
23: 
35: 
4§. 


55: 
SAV IT: 


HALT ON E 


0 
INHIBIT ERROR TYPEOUTS 


BELL ON ERROR 
LOOP ON ERROR 
ERROR N 
INCB SERFLG 
BEQ 7% 
MoV STSTNM. dDISPLAY 
BIT #B1T10,9SWR © 
BEQ 1$ 
TYPE - SBELL 
INC SERTTL 
Mov (SP), SERRPC 
SUB #2, SERRPC 
MOVB aSERRPC. $1 TENB 
BIT #BIT13. ASWR 
BNE 208 
JSR PC, SAVIT 
TYPE - SCRLF 
CMPB SAP TENV, SENV 
BNE 2$ 
MOVB SITEMB, 21% 
JSR PC, SATY4 
.BYTE OQ 
.BYTE 0 
BR 22% 
TST @SHR 
BPL 3$ 
HALT 
BIT #B1TO9. dSWR 
BEQ 4§ 
MoV SLPERR. (SP) 
TST SESCAPE 
BEQ 5$ 
MoV SESCAPE, (SP) 
RTI 
MOV RO. HLDO 


+;ERROR=EMT AND N=ERROR ITEM NUMBER 


;-SET THE ERROR FLAG 

;;DON'T LET THE FLAG GO TO ZERO 
;;DISPLAY TEST NUMBER AND ERROR FLAG 
++BELL ON ERROR? 


‘;3NO - SKIP 


>-RING BELL 
>; COUNT THE NUMBER OF ERRORS 
;;GET ADDRESS OF ERROR INSTRUCTION 


+;STRIP AND SAVE THE ERROR ITEM CODE 
++SKIP TYPEOUT IF SET 

++SKIP TYPEOUTS 

+;GO TO USER ERROR ROUTINE 


;;RUNNING IN APT MODE 

;>;NO, SKIP APT ERROR REPORT 

;;SET | TEM NUMBER AS ERROR NUMBER 
;;REPORT FATAL ERROR TO APT 


;2APT ERROR LOOP 

;;HALT ON ERROR 

;;SKIP IF CONTINUE 

;>;HALT ON ERROR! 

;-LOOP ON ERROR SWITCH SET? 

;7BR IF NO 

;;FUDGE RETURN FOR LOOPING 

>; CHECK FOR AN ESCAPE ADDRESS 
>;BR IF NONE 

;;FUDGE RETURN ADDRESS FOR ESCAPE 


;;RETURN 


SEQ 0061 


DZDUU-B MACY11 30(104%6) 
31-MAY-77 


DZDUUB. M11 


014416 
014422 
014426 
014432 
014436 
014442 


014450 
014450 
014454 
014456 
014460 
014464 


014466 


014472 
014474 
014476 
014500 
014502 
014504 
014506 
014512 
014516 
014520 
014522 


010167 


016767 


104401 


001004 
016746 


21-SEP-77 09: 22 
09: 50 ERROR HANDLER ROUTINE 


164510 
164506 
164504 
164502 
164500 
164734 


001523 


001414 


164724 


001652 
000004 


001523 
000004 


001523 


001523 


014600 


164474 


PAGE 64 


MOV RS, HLOS 
MoV STSTNM. HLOG 


.SBTTL ERROR MESSAGE TYPEOUT ROUTINE 


++ RERAAAAARARARAAALARAA AAAS A AAA AAA AAA AAA AAAAAAAALAALAAAAAAAA AIF 

+XTHIS ROUTINE USES THE “ITEM CONTROL BYTE” (SITEMB) TO DETERMINE WHICH 
;KERROR 1S TO BE REPORTED. IT THEN OBTAINS, FROM THE “ERROR TABLE” (SERRTB), 
+ AND REPORTS THE APPROPRIATE INFORMATION CONCERNING THE ERROR. 


SERRTYP: 
TYPE 


» SCRLF ++"CARRIAGE RETURN” & “LINE FEED" 


MoV RO, -(SP) ;;SAVE RO 

CLR RO ;-PICKUP THE ITEM INDEX 

BiSB a#$1TENB. RO 

BNE 1$ +; 1F ITEM NUMBER IS ZERO. JUST 
>; TYPE THE PC OF THE ERROR 


++SAVE SERRPC FOR TYPEOUT 
++ERROR ADDRESS 


MOV SERRPC, -(SP) 


TYPOC +;GO TYPE--OCTAL ASCIICALL DIGITS) 
p 6$ ++GET OUT 

1$: DEC RO ;,ADJUST THE INDEX SO THAT IT WILL 
ASL RO iG WORK FOR THE ERROR TABLE 
ASL RO 
ASL RO | 
ADD #SERRTB, RO ++>FORM TABLE POINTER 
Mov (RO)+, 2$ ++PICKUP “ERROR MESSAGE” POINTER 


BEQ 3$ +;SKIP TYPEOUT IF NO POINTER 


TYPE >; TYPE THE “ERROR MESSAGE” 
z3: WORD OQ ;;"ERROR MESSAGE” POINTER GOES HERE 
TYPE , SCRLF >; "CARRIAGE RETURN” & “LINE FEED" 
3S: MOV (RO)+,4$ >;PICKUP “DATR HEADER” POINTER 
BEQ 5$ >;SKIP TYPEOUT IF O 
TYPE +; TYPE THE “DATA HEADER” 
4S: .WORD OQ >; “DATA HEADER” POINTER GOES HERE 
TYPE , SCRLF 7; "CARRIAGE RETURN” & “LINE FEED" 
5S: MOV (RO), RO ;;PICKUP “DATA TABLE” POINTER 
BNE 7$ ;;GO TYPE THE DATA 


6S: MoV (SP)+,RO ;;RESTORE RO 
TYPE , SCRLF +2 "CARRIAGE RETURN" & “LINE FEED” 
RTS PC ;;RETURN 
7$: 
Vv a(RO)+, -(SP) ;; SAVE &(RO)+ FOR TYPEOUT 
TYPOC ;;GO TYPE--OCTAL ASCIICALL DIGITS) 
TST (RO) >; 1S THERE ANOTHER NUMBER? 
BEQ 6$ ;-BR IF NO 
TYPE , 8$ 3; TYPE TWO(2) SPACES 
BR 7$ ;+ LOOP 
8$: -ASCIZ 7 #7 >; TWO(2) SPACES 


. EVEN 
_SBTTL BINARY TO OCTAL (ASCII) AND TYPE 


SEQ 0062 


DZDUU-B MACY11 30(104%6) 


DZ0UUB. M11 


014604 
014610 
014616 
014622 
014626 
014630 
014636 
014644 
014652 
014654 
014656 
014660 
014664 
014666 
014672 
014676 
014702 
014706 
014710 
014712 
014714 
014716 
014720 
014722 
014724 
014726 
014732 
014734 
014740 
014742 
014744 
014746 
014750 


017646 


21-SEP-77 09:22 PAGE 


65 
31-MAY-77 O09: 50 BINARY TO OCTAL (ASCII) AND TYPE 


000000 
000001 
00C207 
000u02 


000001 


000006 
000005 


000145 
000006 
000132 


000125 
000012 


000076 
177770 


000060 


000211 


000171 
000165 
000154 


L §& 


++ RERAAARAAATALAAA TAA AAAAA AAA A AAA AAA AAA AAA AAT AAA ALAA T Ts 


*+RTHIS ROUTINE IS USED TO — 4 


*ROCTAL (ASCII) NUMBER AND T 


k 
;x 
i 
| 
 § 
;x 
$ 
> | 
;x 
; SCALL 


CALL: 


we Be Be Be Be Be Be Be Be Be Be & Se Be Be Be Be Be 


STYPOS: 


S$TYPOC: 
STYPON: 


1$: 
23: 


3: 


4§: 


MOV 


TYPOS 


MOV 


| 

t TYPON 

;x 

++ Settee HERE FOR TYPEOUT OF A 16 BIT NUMBER 
| 

x 


NUM, al (SP ) 


NUM, - (SP) 


1(SP), SOF ILL 
(SP )+, SOMODE +1 
#2. (SP) 
STYPON 

#1, S0F ILL 
#6, SOMODE +1 
#5, SOCNT 
R3,.-(SP) 

RY, - (SP) 

RS, - (SP) 
SOMODE +1, R4 
R4Y 


#6,R4 
R4Y, SOMODE 


SOF ILL. R4 
12(SP),R5 


R3 

SOMODE 

7$ 
#177770,R3 


16-BIT BINARY NUMBER TO A 6-DIGIT 


YPE 
hy tit ses HERE TO SETUP SUPPRESS ZEROS AND NUMBER OF DIGITS TO TYPE 


;;NUMBER TO BE TYPED 
>; CALL FOR TYPEOUT 
;;N21 TO 6 FOR NUMBER OF DIGITS TO TYPE 
;;Mz1 OR O 
;,1=TYPE LEADING ZEROS 
;;O0=SUPPRESS LEADING ZEROS 


STYPON----ENTER HERE TO TYPE OUT WITH THE SAME PARAMETERS AS THE LAST 
 RSTYPOS OR STYPOC 


;;NUMBER TO BE TYPED 
;;CALL FOR TYPEOUT 


>;NUMBER TO BE TYPED 
;;CALL FOR TYPEOUT 


;;PICKUP THE MODE 

;;LOAD ZERO FILL SWITCH 
;;NUMBER OF DIGITS TO TYPE 
;;ADJUST RETURN ADDRESS 


;;SET THE ZERO FILL SWITCH 

;;SET FOR SIX(6) DIGITS 

;;SET THE ITERATION COUNT 

;;SAVE RZ 

>; SAVE RY 

;; SAVE RS 

;;GET THE NUMBER OF DIGITS TO TYPE 


+,SUBTRACT IT FOR MAX. ALLOWED 
+,SAVE IT FOR USE 

+;GET THE ZERO FILL SWITCH 
+>PICKUP THE INPUT NUMBER 
+;CLEAR THE OUTPUT WORD 
+;ROTATE MSB INTO "“C” 

+-GO DO MSB 

+;FORM THIS DIGIT 


;;GET LSB OF THIS DIGIT 

3; TYPE THIS DIGIT? 

;-BR IF NO 

>;GET RID OF JUNK 

;; TEST FOR O 

+; SUPPRESS THIS 0? 

>;BR IF YES 

+;DON'T SUPPRESS ANYMORE O'S 
;,MAKE THIS DIGIT ASCII 


SEQ 0063 


DZ0UU-B MACY11 30(104%6) 


DZDUUB. M11 


014754 


015030 


015032 
015032 
015034 
015036 
015040 
015042 
015044 
015046 
015052 
015056 
015064 
015066 


015070 


31-MAY-77 


000000 


010046 


21-SEP-77 09:2 
09: 50 


015024 
000032 


000002 


162752 
164040 
015070 


164022 


015032 
0 


164227 
164236 


000004 


162740 


162706 


2 PAGE 66 
BINARY TO OCTAL (ASCII) AND TYPE 


5S: 


7$: 


6$: 


8$: 
SOCNT: 


SOF ILL: . 


SOMODE: 


SPWRODN: 


_PFAIL: 


RESTAR: 


#' .R3 ;;MAKE ASCII IF NOT ALREADY 
R3,8$ ;,SAVE FOR TYPING 
, 8$ ;;GO TYPE THIS DIGIT 
SOCNT ;; COUNT BY 1 
2$ ;-BR IF MORE TO DO 
6$ ;;8R IF DQNE 
Ry >; INSURE LAST DIGIT ISN'T A BLANK 
2$ ;;GO DO THE LAST DIGIT 
(SP)+,R5 ;;RESTORE RS 
(SP)+,R4 ;;RESTORE R4& 
(SP)+,R3 ;;RESTORE R3 
2(SP),.4(SP) ;;SET THE STACK FOR RETURNING 
(SP)+, (SP) 

;;RETURN 


ooo°0°o 


+;STORAGE FOR ASCI! DIGIT 

++ TERMINATOR FOR TYPE ROUTINE 
+,OCTAL DIGIT COUNTER 

++ ZERO FILL SWITCH 

+;NUMBER OF DIGITS TO TYPE 


. WORD 
*ENTER HERE ON POWER FRILURE 


RO, - (SP) 
R1, - (SP) 
RZ, - (SP) 
R3, - (SP) 
R4Y,-(SP) 
R5, - (SP) 
24, - (SP) 
SP, SAVSP 
#RESTART. 24 


>SAVE RO-RS ON PROCESSOR STACK 


;SAVE STACK POINTER 
+SET UP FOR POWER UP TRAP 
+HALT ON POWER DOWN NORMAL 


;PROCESSOR WILL TRAP HERE WHEN POWER IS RESTORED 


SAVSP, SP 
(SP)+,R5 
(SP)+,R4 
(SP)+,R3 
(SP)+,R2 
(SP)+,R1 
(SP)+,RO 
#. PFAIL, 24 


#340 


;RESTORE STACK POINTER 
*RESTORE RO-RS 


>SET UP FOR POWER FAILURE 


&# STACK. SP 


TEMP 
TEMP 
= 


SERFLG 
SERRPC 


SEQ 0064 


DZ0UU-8 
DZDUUB. 


MACY11 
Mii 


30(1046) 
31-MAY-77 


000177 


21-SEP-77 O09 


09: 50 
163720 

002 
042012 


047125 
051124 


047412 
051072 
020105 
042040 
041530 
042104 


037440 


037524 


053125 
042132 
052040 
020105 


041505 
600055 


042104 
044526 


040040 
043505 


043126 
052105 
040514 
053105 
051123 
026523 


000 


026114 
052123 


:22 PAGE 67 

BINARY TO OCTAL 

JMP 
PFTAB: 1 

. BYTE 

RETURN 
MTITLE: . ASCIZ 
MVECTO: . ASCIZ 
MREGAD: . ASCIZ 
MMULT: ASC IZ 
MLASTD: . ASCIZ 
DEVICE: . ASCIZ 
MCOW: . ASCIZ 
MRANGE: . ASCIZ 
MQM: .ASCIZ 
MCRLF: .ASCIZ 
MPFAIL: . ASCIZ 
MEPASS: . ASCIZ 
mR. ~ASCIZ 
MTSTPC: . ASCIZ 
MLOCK- .ASCIZ 


N 5 
(ASCII) AND TYPE 
ORE TURN 
6.2 
€15><12><12>/DUV11 DZDUU-B TAPE E 7<15><12> 


€15><12>/VEC ADD-/7 
€15><12>71ST DEV: REC CSR ADD-/ 


€15><12>/MULT DEV 7? (Y OR N)-7 


€15><12>/7LAST DEV: REC CSR ADDR-/ 


7=DEVICE 7 
€15><12>/7SELECT TO RUN @ACTREG/ 


<15><12Z2>/0VFLO: RETYPE LAST DEV RXCSR ADDS-/7 


, WwW 
€15><12> 


7PFAIL. RESTART AT TEST IN PROGRESS/ 


<15><12>7END OF PASS TAPE E/ 


€15><412>/R/ 
€15><12>/TEST PC-/7 


€15><12>/LOCK ON TEST? (Y OR N)-/ 


SEQ 0065 


DZ0UU-B MACY11 30(1046) 


DZDUUB. M11 


016172 
016234 
016276 


31-MAY-77 


020131 


020040 
020075 


000000 
016234 


000000 
016276 
000000 
016340 


09:5 

051117 
000 

021412 


054523 
040510 


yt yee 09 


047040 
047440 
041516 
051522 
041505 
020050 
031040 
020123 


046530 
044527 


020122 
047440 


047040 
04 3536 
036522 
053505 


MSYNC: 


MWIREEG: 


MWIRES: 


MWIRES: 


MEXT J: 


. =. +40 
. SBTTL 


:22 PAGE 68 
BINARY TO OCTAL (ASCII) AND TYPE 


ASCIZ 


.ASCIZ 


-ASCIZ 


. ASCIZ 


-ASCIZ 


.ASCIZ 
. ASCIZ 
. ASCIZ 


>BUFFERS FOR 


0 
0 
0 


SCOPE HANDLER ROUTINE 
5; MERAAAAAAAAAA ARTA AAA AAA ALAA AA AAA AAA AAA AAA AAA AAA AAA ATTY 


415><12>78 OF SYNC CHARS SELECTED ( 1 OR 2)-/ 


€15><12>71S SEC XMIT SWITCH E55-2 INT CY OR N)-7 


€15><12>71S SEC REC SWITCH E55-3 IN? (Y OR N)-7 


€15><12>71S OPT CLR ENABLE SWITCH E55-1 IN? CY OR N)-/7 


€15>¢12><12>7H315 CONNECTOR ON ?(Y OR N)-Z 


€15>412>7 G Z/ 


/ SWR= 


/ 


f NEW= 7 


INPUT-OUTPUT 


SEQ 0066 


DZDUU-B MACY11 30(1046) 


DZDUUB. M11 


3417 
3418 
3419 


016340 


016340 
016340 
016344 
016350 
016354 


016356 
016364 
016366 
016374 
016376 
016402 
016404 
016412 
016420 


016422 


016536 
016542 


004 767 
005067 
022716 
001422 


032777 
001412 


012737 


21-SEP-77 09:22 PAGE 69 


31-MAY-77 O09: 50 


174376 
163046 
003376 
040000 
163010 
162042 


163036 
040000 


000004 
016450 
177060 
000004 


000004 


000400 
162744 
162677 
162703 
001000 
162656 


162641 
162744 


163054 
163012 


177776 
163020 


000004 


162752 
162704 


162667 
162714 
162652 


SCOPE HANDLER ROUTINE 
+STHIS ROUTINE CONTROLS THE LOOPING OF SUBTESTS. 


IT WILL INCREMENT 


;SAND LOAD THE TEST NUMNBER(STSTNM) INTO THE DISPLAY REG. (DISPLAY<7: 0>) 
*+AND LOAD THE ERROR FLAG (SERFLG) INTO DISPLAY<15: 08> 
+2THE SWITCH OPTIONS PROVIDED BY THIS ROUTINE ARE: 


> 2SW1421 
;<SWii=1 

> XSWO9=1 

> xSWO8=1 

> XCALL 

;% SCOPE 


SSCOPE: 


LOOP 0 


N TEST 
INHIBIT ITERATIONS 


LOOP ON ERROR 


LOOP ON TEST IN SWR<7: OD 
++ SCOPE=I10T 


>SCOPE LOOP AND INTERATION HANDLER 


. SCOPE: 


TTST: BIT 


15: BIT 


SOVER 
;RRRRASTART OF = FOR THE XOR 


SXTSTR: BR 


55: CMP 


6S: ; ##RRREND OF 
BIT 


23: TSTB 


7$: MOV 
4§: CLRB 


PC, CKSWR 
SERRPC 
#TST1+2, (SP) 
SXTSTR 


oe 

1 

papier cna: 
1 


asTKS 
SOVER 
#81714. @SWR 


OtERRVEC., - (SP) 
#5%, d#ERRVEC 
a#177060 

(SP )+, d#ERRVEC 

SSVLAD 

(SP), (SP)+ 
(SP )+, S#ERRVEC 


;CLEAR LAST ERROR PC 
;1S SCOPE AT BEGINING OF TEST 17? 
;YES NO LOOP. 


+ THIS CODE IS FOR TESTING FOR BIT 14% 
>ON LSI WHICH SYSMAC CANNOT HANDLE 


; KEYBOARD DONE? 
;BR IF NO 
+; CLEAR DONE BIT 
;;LOOP ON PRESENT TEST? 
>, YES IF SWi4=1 
TESTERRRSRE 
7; 1F RUNNING ON THE “XOR" TESTER CHANGE 
;; THIS INSTRUCTION TO A “NOP” (NOP=240) 
;; SAVE THE CONTENTS OF THE ERROR VECTOR 
+;SET FOR TIMEOUT 
+; TIME OUT ON XOR? 
;-RESTORE THE ERROR VECTOR 
+;GO TO THE NEXT TEST 
;;CLEAR THE STACK AFTER A TIME OUT 
++ RESTORE THE ERROR VECTOR 
LOOP ON THE PRESENT TEST 


7$ 
CODE FOR THE XOR TESTERSRAAS 


Smetana 
SHR. STSTNM 
SOVER 

SERFLG 

3$ 
————— 
#B1TO9. dSWR 
4§ 

SLPERR, SLPADR 
SOVER 

SERFLG 
STINES 


;;LOOP ON SPEC. TEST? 
;-BR IF NO 

;;0N THE RIGHT TEST? 
;;BR IF YES 

;;HAS AN ERROR OCCURRED? 
;;BR IF NO 

oT rr we FOR THIS TEST OCCURRED? 
Stee ON ERROR? 


oe 


1F NO 
SET LOOP ADDRESS TO LAST SCOPE 


+>ZERO THE ERROR FLAG 
+;CLEAR THE NUMBER OF ITERATIONS TO MAKE 


SWR<7: O> 


SEQ 0067 


DZDUU-B MACY11 30(104%6) 


DZDUUB. M11 


016546 


016674 
016676 
016702 
016704 
016706 
016710 
016714 


016716 
016720 
016726 


016730 
016732 
016734 
016736 


31-MAY-77 


000005 


010046 
ooeem 


016000 
000200 


011646 
016666 
000002 


016716 
013112 
014630 
014604 


21-SEP-77 09: 


09: 50 


004000 
162750 


162612 
162714 


000001 


162522 


000002 


016730 


000004 


162662 


162604 


162574 
162674 


162702 


162543 
162562 


000002 





INHIBIT | TERATIONS 
INCREMENT ITERATION COUNT 
THE NUMBER OF ITERATIONS MADE 
+;BR IF MORE ITERATION REQUIRED 
++REINITIALIZE THE ITERATION COUNTER 
OF dS aes TO DO 


** S 
++SET TEST NUMBER IN APT MAILBOX 


+;CLEAR THE ESCAPE FROM ERROR ADDRESS 
+,ONLY ALLOW ONE(1) ERROR ON NEXT TEST 


+;MAX. NUMBER OF ITERATIONS 


22 PAGE 70 
SCOPE HANDLER ROUTINE 
BR 1$ ;;ESCAPE TO THE NEXT TEST 
35: BIT #B1T11,. dSWR ;; INHIBIT | TERATIONS? 
BNE 1$ ;-BR IF YES 
TST SPASS sol FIRST PASS OF PROGRAM 
BEQ 1$ 
INC SICNT 
CMP STIMES, SICNT ++ CHECK 
BGE SOVER 
1$: MOV #1,S1CNT 
MOV SMXCNT. STIMES -¢;SET NUMBER 
SSVLAD: INCB STSTNM ;; COUNT TEST NUMBE 
MOVB STSTNM. STESTN 
MoV (SP), SLPADR +;SAVE SCOPE LOOP ADDRESS 
MOV (SP), SLPERR ;;SAVE ERROR LOOP ADDRESS 
CLR SESCAPE 
MOVB #1. SERMAX 
SOVER: MOV STSTNM. DISPLAY >; DISPLAY TEST NUMBER 
MOV SLPADR, (SP) ;;FUODGE RETURN ADDRESS 
4§: RTI 
BRW: 1407 
BRX: 432 
SMXCNT: 5§ 
.SBTTL TRAP DECODER 
5s RARAAAAAAAAARAAAAAKAAAL AAA AAA AAA AA ALATA RATA AAA AAA AAA AAA AAAS 
;XTHIS ROUTINE WILL PICKUP THE LOWER BYTE OF THE “TRAP” INSTRUCTION 
;XAND USE IT TO INDEX THROUGH THE TRAP TABLE FOR THE STARTING ADDRESS 
;XOF THE DESIRED ROUTINE. THEN USING THE ADDRESS OBTAINED IT WILL 
;xGO TO THAT ROUTINE. 
STRAP: MOV RO. -(SP) ;;SAVE RO 
MOV 2(SP),RO ;;GET TRAP ADDRESS 
TST - (RO) ;;BACKUP BY 2 
MOVB (RO).RO ;;GET RIGHT BYTE OF TRAP 
ASL RO ;;POSITION FOR INDEXING 
MOV STRPAD(RO).RO ;; INDEX TO TABLE 
RTS RO ;;GO TO ROUTINE 
3; THIS 1S USE TO HANDLE THE "GETPRI™ MACRO 
STRAPZ: MOV (SP),-(SP) ;;MOVE THE PC DOWN 
MOV 4(SP),2¢(SP) ;>;MOVE THE PSW DOWN 
RTI >-RESTORE THE PSW 
_SBTTL TRAP TABLE 


; THIS TABLE CONTAINS THE STARTING ADDRESSES OF THE ROUTINES CALLED 
;XBY THE “TRAP” INSTRUCTION. 


, 


ROUTINE 


STRPAD: . 
$ 


STYPOC 
S$TYPOS 


STRAPZ 
;;CALL=TYPE 
;;CALL=TYPOC 
;;CALL=TYPOS 


TTY TYPEOUT ROUTINE 
TYPE OCTAL NUMBER (WITH LEADING ZEROS) 
TYPE OCTAL NUMBER (NO LESDING ZEROS) 


TRAP +1 (104401) 
TRAP +2(104402) 
TRAP +3(104403) 





DZDUU-B MACY11 30(1046) 


DZDUUB. M11 


016740 


016742 
016744 
016746 
016750 
016752 
016754 
016756 
016760 


016762 
016766 
016772 
016776 
017002 
017006 
017014 
017022 
017030 
017032 
017034 


017036 
017044 
017050 
017056 
017062 
017070 
017076 
017102 
017110 
017116 
017122 
017130 
017134 
017142 
017146 
017154 
017160 
017166 
017170 


017172 
017200 
017204 
017210 


31-MAY-77 


014644 


013070 
013374 
013502 
013512 
013712 
013752 
014004 
014162 


006367 
006367 
006367 
006367 
006367 
016767 
162767 
042767 
000207 
000240 
000200 


016767 


006067 


21-SEP-77 09:22 PAGE 71 
09: 50 


TRAP TABLE 
STYPON 
. SCOP 1 
. INSTR 
. INSTER 
. PARAM 
. SAVOS 
. RESOS 
000044 DULEV: ASL 
000040 ASL 
000034 ASL 
000030 ASL 
000024 ASL 
000020 000020 MOV 
000001 000012 SUB 
000037 OOoOo004% BIC 
RTS 
DUPRT: PRS 
LESS1: PRY 
*>NEW DU 
000126 162646 ODUADOR. MOV 
000120 INC 
000114 162636 MOV 
000106 INC 
000102 162626 MOV 
000074 162624 MOV 
000066 INC 
000062 162610 MOV 
000054 162606 MoV 
000046 INC 
000042 162576 MOV 
000034 INC 
000030 162566 MOV 
000022 INC 
000016 162556 MOV 
000010 INC 
000004 162546 MOV 
RTS 
DUBASE: O 
040000 162526 RPOKE: BIC 
162276 CLR 
162270 ROR 
162266 ROR 


+> CALL=TYPON 


>> CALL=SCOP1 
++ CALL=INSTR 
+; CALL=INSTER 
;;CALL=PARRAN 
+; CALL=SAVOS 
>; CALL=RESOS 


. CONVRT >; CALL=CONVRT 
. SETFLG >; CALL=SETFLG 
; SENELEESEESUSSTRESEEESESEESSLASESRESAESTREASAREAASLEET ENTE 


sUTILITIES 
; ARXRAAAAAARAAALTAAAALAA ALAA EAL AAAS LARA TALE AAA ALAA EET 


+ THIS UTILITY CALCULATES PRIORITY LEVEL 
DUPRT ;SHIFT LEFT 


DUPRT, LESS1 
#1,LESS1 
#37,LESS1 
PC 


+LEVEL TO ALLOW 


ADDRESSES 
DUBASE. RXCSR 
DUBASE 

DUBASE. HRXCSR 
OUBASE 

DUBASE. RXOBUF 
DUBASE. PARCSR 
DUBASE 

DUBASE. HRXDBUF 
DUBASE. HPARCSR 


DUBASE 

DUBASE. TXCSR 
DUBASE 

DUBASE. HTXCSR 
DUBASE 

DUBASE. TXDBUF 
DUBASE 

DBASE HTXOBUF 

L 


SEQ 0069 


TRAP4+4(104404) TYPE OCTAL NUMBER (AS PER LAST CALL) 


TRAP +5( 104405) 

TRAP 46 (104406) 

TRAP +7( 104407) 

TRAP 4+10( 104410) 
TRAP 4110104411) 
TRAP 412( 104412) 
Sette phe nage 
TRAP 414(104414 


*MOVE THIS TO LESS! 
>CREATE LESS! 
>CLEAR TNZVC 


INTERRUPTS 


; XXXO 
> XXX1 


+ XXX2 
; XXX2 


; XXX3 
; XXX3 


+ XXX4 
+ XXX 
+ XXX6 
+ XXX7 


+ THIS UTILITY POKES THE MAINT DATA BASED UPON THE 
; INFORMATION CONTAINED IN STMP1 AND IT IS 
;SHIFTED IN BY THE CONTENTS OF SHIFT 


#MTDATA, ATXCSR 
STMPZ 
STNMP1 
STNP2 


+FORCE CARRY 
>PICK UP CARRY IN BIT 15 


D 


me 


017214 
017220 
017226 
017234 
017242 
017250 
017254 
017256 


017260 
017266 
017272 
017276 
017300 
017304 
017310 
017314 
017316 
017322 
017324 
017332 
017334 


017342 


017344 


017420 


017426 
017430 


017434 


DZO0UU-B MACY11 30(104%6) 
ZOUUB 31-MAY-77 


000207 


016767 


042767 
000207 


016767 


000207 
062716 


000002 
000001 


21-SEP-77 O09: 
09: 50 


162262 
100000 
162250 
020000 
020000 
161646 


162214 
162212 
000010 
162176 
162174 
177762 
162162 
000400 


000400 


162130 
162126 
000010 
162112 
162110 
177762 
162076 
000400 


000400 


000002 


162254 
162472 
162464 
162456 


162214 


162146 
162136 


162130 


162062 
162052 


; THIS ROUTINE CALCULATES EVEN PARITY FOR AN 8 BIT CHARACTER 


+THIS ROUTINE CALCULATES ODD PARITY FOR AN 8 BIT CHAR 


;SHIFT INTO BIT 14 
;CLR BIT 
;POKE MAINT DATA 
;POKE CLK 


22 PAGE 72 
TRAP TABLE 
RSP STNPZ 
BIC #B1T15.STMP2 
BIS STMP2, dTXCSR 
BIC #CLK, dTXCSR 
BIS #CLK, dTXCSR 
DEC SHIFT 
BNE RPOKE 
RTS PC 
ODD8: MOV STMP1,STHMPZ 
CLR STMP3 
MoV #8.,(PC)+ 
4§: 0 
15: ROR STMPZ2 
ADC STMPS 
DEC a 
BNE 1$ 
ROR STNP3 
BCS 2$ 
BiS SB ITS. STMP1 
BR 3$ 
23: BI #B1T8,.STMP1 
33: RTS 
EVEN8: MOV STMP1,STMPZ 
CLR STNPS 
MoV #8.,(PC)+ 
4§: 0 
1$: ROR STMP2Z 
ADC STMP3 
DEC 4u§$ 
BNE 1$ 
ROR STMP3 
BCC 2$ 
BIS #B1T8. STMP1 
BR 3$ 
23: BI #Bi1T8,.STMP1 
35: RTS 
TRPREG: ADD 
RTI 
_ END 


. 
é 


15 


>SAVE TEMP1 


+SET ODD PARITY 


C >CLR EVEN FARITY 
> STMP1 . HAS ODD PARITY CHARACTER 


>SAVE TEMP 1 


;SET EVEN PARITY 


C CLR ODD PARITY 
;STMP1 . HAS EVEN PARITY CHARACTER 
Pp 


#2,(SP) ;ALLOW IT TO “CRUNCH" INTO HLT BACK 
+ IN MAIN PART OF THE PROGRAM 


SEQ 0070 


G 6 
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DZDUUB. M11 31-MAY-77 O09: 50 


AAR 003200 12948 
877 
877 
877 
877 
736% 


2956% 
277 
8/7 
877 


877 
877 





918 
920 
921 


892 
1250% 
9 


919 
2995% 
8 


917 
1232% 


CROSS REFERENCE TABLE -- USER SYMBOLS 


1264% 1265% 1272% 2741 2744 2754 


30028 


1269% 1270 1276% 1278% 2748% 2760% 


2764 


SEQ 0071 
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DZDUUB. M11 31-MAY-77 O9: 50 CROSS REFERENCE TABLE -- USER SYMBOLS SEQ 0072 

BASEIV 001162 7348 1242% 2749% 2761% 2766 2767% 2768 2769% 2770 2771% 2772 2773% 

BBB 003026 1249 12538 

BINWRD 014160 3037% 3039 30698 

BiTW = 002000 8038 9968 1375 1428 1481 1534 1587 1640 1694 1747 1800 1853 1906 
1959 2276 2323 

BiTO = Q00001 666% 779 810 972 1003 

BiTOO = 000001 656% 666 

BiTO1 = 000002 655% 665 

BiTOZ2 = 000004 6548 664 

BiTOS = 000010 653% 663 

BiTO4Y = 000020 6528 662 

BITOS = O00040 6518 661 

BiTO6é = 000100 6508 660 

BiTO? = 000200 6498 659 

BiTO8 = 000400 6488 658 3459 

BiTO9 = 001000 6478 657 3128 3467 

BiTi = Q00002 665% 778 971 

BiT10 = 002000 6468 769 803 962 996 3106 

BiT11 = 004000 6458 768 961 3474 

BIT12 = 010000 6448 767 784 960 977 

BiITi3 = 020000 643% 766 783 802 959 976 995 3113 

BiT14 = 040000 6428 765 782 801 958 975 994 3438 3445 

BiT1S = 100000 6418 764 781 800 957 974 993 3586 

BiT2 = OO0004 664% 777 970 

BiT3 = 000010 663% 776 809 969 1002 

BiTY = 000020 €628 775 808 968 1001 

BITS = 000040 601% 774 807 967 1000 

BiTé = 000100 660% 773 806 966 999 

BIT? = 000200 659% 772 805 965 998 

BiT8 = Q00400 6588 771 787 804 964 980 997 3605 3607 3622 3624 

BITS = 001000 6578 770 786 963 979 

BPTVEC= 000014 6738 

BREAK = 000001 8108 10038 2006 2063 2096 2354 2418 2680 

BRW 016666 34928 

BRX 016670 34938 

CARDET= 010000 7678 9608 

ccc 012646 2740 2763 27808 

CHRCNT 014156 3035% 3040 3053% 30678 3068 

CKSWR 012742 2734 2797 2804# 2836 3433 

CLK = 020000 802% 9958 1370 1371 1377 1378 1388 1423 1424 1430 1431 1441 1476 
1477 1483 1484 1494 1529 1530 1536 1537 1547 1582 1583 1589 1590 
1600 1635 1636 1642 1643 1653 1689 1690 1696 1697 1707 1742 1743 
1749 1750 1760 1795 1796 1802 1803 1813 1848 1849 1855 1856 1866 
1901 1902 1908 1909 1919 1954 1955 1961 1962 1972 2006 2012 2013 
2015 2016 2029 2030 2032 2033 2063 2068 2069 2071 2072 2081 2082 
2096 2101 2102 2114 2115 2149 2150 2155 2156 2196 2197 2200 2201 
2225 2226 2270 2271 2279 2280 2317 2318 2326 2327 2354 2362 2363 
2365 2366 2418 2425 2426 2428 2429 2563 2569 2577 2583 2606 2612 
2659 2660 2665 2666 3588 3589 

CNTLU 013016 1199 28158 

CONVRT= 104413 2737 2817 3299 3538% 

COUNT 001124 7118 2034% 2041% 2195% 2207% 2216% 2229% 2368% 2372k 2376% 2430% 2435% 25082 
2513% 2517% 2656%  2682% 

CR = 000015 5818 2910 2920 

CRLF = 000200 5828 2881 2920 

CTS = 020000 766% 9598 
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DZDUUB. N11 31-MAY-77 O9 CROSS REFERENCE TABLE -- USER SYMBOLS SEQ 0073 
DDISP = 177570 5888 B44 1157 
DEVADR 013706 2954 992 30008 
DEVICE 015351 2738 33298 
DF 1 002132 1028 1032 1036 1040 1086% 
DH1 002067 1026 1030 1034 10758 
DISPLA 001442 S448 1157% 1165% 1190%  3105% 3489% 
DISPRE 000174 6858 1165 1190 
= 100000 800% 9938 
DNAINT= 000040 807% 10008 
OSC )§=>s. =—-—« 100000 764% 9578 
DSINTE= OO0040 7748 9678 2707 2713 2721 
DSR - = 001000 7708 963% 
DSWR = 177570 5878 843 1156 
DTR = 000002 7788 9718 2714 
OT1 002116 1027 1031 1035 1081% 
DT4 002126 1039 10848 
DUADDR 017036 1231 2765 35588 
DUBASE 017170 1227 1230 2764% 3558 3559x 3560 3561% 3562 3563 3564% 3565 3566 3567% 
3568 3569% 3570 3571% 3572 3573% 3574 35768 
DULEV 016762 1289 35458 
DUPRT 017032 1288x 2699 3545x 3546% 3547k 3548k  3549% 3550 35548 
DURIS 001740 1055  2699% 2709 2710% 2718 2719% 2768% 
DURIV 001736 10548 1238 1241 1242 2698k 2709% 2718% 2766% 2773 
DUTIS 001744 10578 2772% 
DUTIV§ 001742 10568  2770% 
EIGHT = 006000 7958 9888 1470 1523 1576 1629 1683 1736 1789 1842 1895 1948 2009 
2006 2099 2143 2191 2263 2311 2357 2421 2559 2653 
ENTVEC= 000030 6768 1141% 1142% 
EM1 001762 1025 10618 
ENZ 002022 1029 10678 
ENS 00204 3 1033 10708 
Enm4 001746 1037 10598 
ERRCNT 001114 7048 
ERRVEC= 669% 1154 1155% 1166% 3450 3451k S4S3x  3456% 
EVENS 017344 36128 
EVEPAR= 001400 7988 9918 1364 1470 1576 1683 1789 1895 
EVPAR = 000400 787% 9808 
FIVE = 000000 792% 9858 
FRMERR= 020000 7838 976% 
GNS = &kRRRR 3526 3527 3528 3529 3532 3533 3534 3535 3536 3537 3538 3539 
WOXEN = 000010 8098 10028 2603 
HILIM 013704 2953% 2983 29998 
HLOO 001130 7138 #§=©1081 3136% 
HLO1 001132 7148 1081 3137% 
HLOZ 001134 7158 3138% 
HLOS 001136 7168 8 3139% 
HLO4 001140 7178 = =63140% 
HLOS 001142 7188 314128 
HL D6 001144 7198 831428 
HOLD 001120 709% #2565 2571 2579 2585 2608 2614 
HPARCS 001724 10488 3566% 
HRXCSR 001714 10448  3560% 
HRXDBU 001720 10468 3565% 
HT = 000011 5798 2879 2920 
HTXCSR 001730 10508 3570% 
HTXDBU 001734 1052@  J3574% 
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DZDUUB. M11 31-MAY-77 CROSS REFERENCE TABLE -- USER SYMBOLS SEQ 0074 

INBUF 016172 1297 1301 2929 2959 3077 3081 34088 

INIFLG 001172 7448 = =§=1200 1203% 

INSTER= 104407 1305 2978 3086 35348 

INSTR = 104406 1222 1233 1243 1254 1279 1295 1308 1312 1316 1320 1331 2819 35338 

INSTRZ 013510 2926 2938 29478 

\OTVEC= 000020 6748 1139% 1140% 

ISYMOD= O00000 7918 9848 1356 1364 1409 1417 1568 1576 1621 1629 

JMRBY 001153 7278 »«=©1208% 1323 2547 2691 

KEEPAD 001156 7328 #8612308 861232 1276 1278 2760 

KEEP iV 001164 7358 ##1241% 2761 

LASTAD 001160 7338 1259 1270 1284 

LESS1 017034 3550% 3551% 3552% 35558 

LF = 000012 5808 2914 920 

LIGHTS 001102 6948  2785% 

LIMITS 013636 2969 29838 

LOBITS 013710 2955x% 2987 30018 3002 

LOCK 001110 7028 82839 

LOKFLG 001174 7468 

LOLIM 013702 2952% 2985 29988 

MCNTG 016137 2814 33988 

MCOW 015363 2743 33318 

MCRLF 015463 3031 33448 

MOATA 016276 3051 3062 34128 

MEPASS 015532 2736 33518 

MEXT = 010000 8148 10078 2556 

MEXTJ 016077 1221 33928 

MINT = 004000 8138 10068 1361 1414 1467 1520 1573 1626 1680 1733 1786 1839 
1945 2006 2063 2096 2140 2188 2260 2308 2354 2418 2650 

MLASTO 015317 1255 33248 

MLOCK 015576 33588 

MMNEW 016160 2819 34028 

MMSWR 016147 2816 34008 

MMULT 015270 1244 33208 

MPFAIL 015466 3302 33458 

Mon 015457 2945 33438 

MR 015557 1342 33558 

MRANGE 015413 1280 33368 

MREGAD 015240 1223 33168 

MRESET= 000400 804% 9978 1355 1357 1408 1410 1461 1463 1514 1516 1567 1569 
1622 1674 1676 1727 1729 1780 1782 1833 1835 1886 1888 1939 
2001 2003 2058 2060 2091 2093 2134 2136 2182 2184 2254 2256 
2304 2349 2351 2413 2415 2550 2552 2644 2646 2693 

MSYNC 015631 1296 33638 

MNTDATA= 8018 9948 2006 2063 2076 2080 2096 2108 2112 2354 2418 3581 

MTITLE 015172 1202 33098 : 

MTSTPC 015563 1332 33568 

MULTD 001152 7268 1246 1247 2739 

MVECTO 015225 1234 33148 

MWIREY 016020 1317 33848 

MWIRES 015750 i313 33778 

MWIREG 015677 1309 33708 

NEXT 001106 7018 

NOPAR = 796% 989% 2009 2066 2099 2143 2191 2263 2311 235? 2421 2559 

ODDPAR= 001000 797% 9908 1417 1523 1629 1736 1842 1948 

0008 017260 35958 

ONCE 002610 1201 12048 
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DZDUUB. M11 31-MAY-77 O9: 50 SEQ 0075 

OPTCLR 001151 7258 861319 2694 

OUT 013050 2805 2807 2809 2813 28258 

OUTCRY 012640 2737 27768 

OUTMUL 003166 1252 1277 12888 

OVRRUN= 040000 7828 9758 2234 

PARAM = 104410 1224 1235 1256 1281 1333 2820 35358 

PARAM1 013542 29588 2979 

PARCSR 001722 10478 1356 1364% 1409% 1417% 14628 1470% 1515% 1523% 1568% 1576% 1621% 1629% 
1675% 1683% 1728% 1736% 1781% 1789% 1834% 1842 1887% 1895% 19408 1948%  2002% 
2009% 2059% 2066% 2092% 2099% 2135% 2143% 2183% 2191% 2255% 2263% Z2303% 23113 
2350 2357% 2414% 2421% 2551% 2559% 2645% 2653% 3563% 

PAREN = 001000 7868 9798 

PARER = 010000 7848 977% 

PARERR 013616 2961 2963 2965 29748 2984 2986 2988 

PART! 013700 2977 29978 

PASCNT 001112 7038 1177% 2784% 2785 2786 

PFTAB 015164 3300 33068 

PIRQ = 177772 5868 

PIRQVE= 000240 6808 

POPRO = 012600 7598 952% 

POP1SP= 005726 757% 9508 

POP2SP= 022626 7618 9548 

PRO = Q00000 6038 

PRi = QO0040 6048 

PR2 = 000100 605% 

PR3 = 000140 €068 

PRY = 000200 6U7# 3555 

PRS = 000240 608¢ 3554 

PR6 = 000300 6098 

PR7 = 000340 6108 

PS = 177776 5838 584 

PSH = 177776 5848 

PUSHRO= 010046 7588 9518 

PUSH1S= 005746 7568 9498 

PUSH2S= 024646 7608 9538 

PWRVEC= 000024 6758 1145% 11463 

ROSW 013056 2815% 2825% 28278 2976 

RECACT= 004000 7688 9618 2020 2035 2043 2378 2441 2470 2477 2486 2494 2519 

REPLAY 012544 2756 2762 27648 

RESTAR 015070 3280 32868 

RESTRT 012724 2757 2788 27958 

RESVEC= 000010 6708 

RESOS = 104412 35378 

RETURN 001104 7008 8 1182% 1339% 1341% 1343 3305 

RING = O04 7658 9588 

RINTEN= 000100 7738 9668 

ROTADD 001170 7398 1251% 1263% 1265 1267% 1272 1275% 2751% 275% 2758% 

RPOKE 017172 2019 2025 2040 2375 2386 24 34 2455 2469 2484 2493 2516 2527 3581% 
3591 

RTS = 000004 7778 9708 

RUNA = S888 VU 1 51 141 514 

RUNB = 8223222 U 1 51 141 514 

RUNC = S88222 U 1 51 141 514 

RUND = S82223 U 1 51 141 514 

RUNE = 000000 1 51 141 514 

RUNF = S22222 U 21 57 144 519 
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DZDUUB. M11 31-NAY-77 CROSS REFERENCE TABLE -- USER SYMBOLS SEQ 0076 
RUNIT 012450 2742 27488 2755 
RXCSR 001712 10438 2010% #2020 2035 2043 21923% 2204 2231 2359% 2378 2381 2387 2423% 
2441 2444 2456 2470 2473 2476% 2477 2485x 2486 2489 2494 2497 2519 
2522 2528 2560% 2595 2620 2654% 2673 2696% 2697 2704 2707% #$2713k #£=2714% 
2721% 2778 3558% 
RXDBUF 001716 10458 2075 2084 2117 2194 2210 2235 2367 2391 2431 2459 2501 2532 
2549 2599 2624 2655 2676 3562% 
RXDONE= 000200 7728 965% 
RXERR = 100000 7818 9748 2234 
SAVIT 014412 3115 31368 
SAVPC 001126 7128 #3006% 
SAVSP 001116 705# 3279% 3286 
SAVOS = 104411 35368 
SCOP1 = 104405 35328 
SEND = 000020 g0se 10018 1361 1414 1467 1520 1573 1626 1680 1733 1786 1839 
1945 2140 2188 2260 2265 2268 2308 2337 2556 2650 
SEREC 001150 7248 8 §=©1315 
SETFLG= 104414 1245 1310 1314 1318 1322 35398 
SEVEN = 004000 7948 9878 1364 1417 
SEXMNIT 001147 7238 1311 
SHIFT 001122 7108 1368% 1385% 1421% 14 38x 1474 1491% 1527% 1544% 1580% 1597% 1633% 
1687% 1704% 1740% 1757% 1793% 1810% 1846x 1863% 1899% 1916% 1952% 1969% 
2023% 2038% #2073% #2089% 2103% 2123% j2198% 2202% #2222% #$2227% ##=#‘®-‘2272k © #£=.%2287% 
2334% 2335 2338 2373% 2384% 2432k% 2453% 2467k =2483x #j2492% #$.2514% 2525% 
2589% 2590 2593 2604% 2618% 2662% 2667% 2668 2671 3590% 
Six = 002000 7938 9868 
SPACNT= 014157 3056% 3055 3058%  3068% 
SRO = 002000 7698 962% 
STACK = 001100 5748 1137 1173 1327 3295 
STO = 000010 776% 9698 
STFLG 001173 7458 1176% 
STKLMT= 177774 5858 
STPSYN= 000400 7718 9648 2193 2359 
013720 30108 
001440 84 38 1135 1156% 1158 1164% 11712 1187 1189% 1194 1210 1329 2806 
3106 3113 3125 3128 3438 3445 3459 3461 3467 3474 
000176 6868 1164 1189 1194 2806 2823 2830 
013060 2818 28288 
= 000001 638% 
= 000001 628% 638 1210 
= 000002 6278 637 1329 
= 000004 6268 636 
= 000010 625% 635 
= 000020 6248 634 
= 000040 6238 633 
= 000100 622% 632 
= 000200 6218 631 
= 000400 6208 630 
= 001000 6198 629 2837 
= 000002 6378 
= 002000 6188 
= 004000 6178 
= 010000 6168 
= 020000 6158 
= 040000 6148 
= 100000 6138 
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DZDUUB. M11 31-MAY-77 SEQ 0077 

SH2 = 000004 636% 

SW3. = 000010 635% 

SW4 = = 000020 6348 

SWS == 000040 633% 

SW6 == 000100 632% 

SH7 = 000200 6318 

SW8 8 = 000400 6308 

SH9 = 001000 629% 

SYNCNO 001146 7228 4=©1299% 1303% 1999 2370 2438 2511 

SYNEXT= 020000 Rts 9838 2092 2099 2183 2191 2255 2263 2303 2311 2551 2559 2645 

SYNINT= O30000 7898 9828 1462 1470 1515 1523 1675 1683 1728 1736 1781 1789 1834 
pe go 1895 1940 1948 2002 2009 2059 2066 2135 2143 2350 2357 

SYNSCH= 000020 7758 968% 2010 2193 2359 2423 2476 2485 2560 2654 

SYSTST= 014000 8158 10088 

TBITVE= 000014 6718 

TEMP 016234 3041 3296% 3297% 34108 

TKVEC = 000060 6788 

TPVEC = 000064 6798 

TRAPVE= OO0034 6778 1143K 1144 

TRPREG 017430 36278 

TRTVEC= 000014 6728 

TST1 003374 1334 1341 13548 2796 3435 

TST10 005246 17268 

TST11 005454 17798 

TST12 005662 18528 

TSTi3 006070 18858 

TST14 006276 19388 

TST15 006504 19988 

TST16 006772 20578 

TSTi7? 007354 21328 

TST2 003602 14078 

TST20 007502 21808 

TST21 007770 22528 

TST22 010162 23008 

TSTZ23 010362 23488 

TST24 010622 24118 

TST25 011412 25468 

TST26 011754 264 38 

TST27 012176 26908 

TST3 004010 14608 

TST4 004216 15138 

TSTS 004424 15668 

TST6 004632 16198 

TST? 005040 16738 

TTST 016356 34388 

TXCSR 001726 10498 1355% 1357% 1361% 1365 1370% 1371% 1377% 1378% 1379 1388% 1390 1408% 
1410 1414% 1418 1423% 4 61424R 0 «61430K8 «61431R 861432 1441 1443 14615 14632 1467% 
1471 1476% 1477% 1483% 1484% 8 1485 1494% 1496 1514% 1516% 1520% 1524 1529% 
1530 15363 1537% 1538 1547% 1549 1567% 1569% 15738 1577 1582% 15832 1589% 
15690% 1591 1600% 1602 1620% 1622% 1626% 1630 1635% 1636% 16428 16432 1644 
1653% 1655 1674% 1676% 16808 1684 1689% 1690% 1696% 1697% 1698 1707% 1709 
17278 81729% 17338 1737 1742% §61743e 0 0 «61749% 0 «6.17508 =: 11751 1760% 1762 17808 1782% 
1786% 1790 1795% 1796% 1802% 1803% 1804 1813% 1815 1833% 1835% 1839% 1843 
1848s 1849% 1855% 1856% 1857 1866% 1868 1886% 1888% 1892% 1896 1901% 1902% 
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DZDUUB. M11 31-MAY-77 09:5 SEQ 0078 
1908% 1909% 1910 1919% 1921 19393 19418 19452 1949 1954% 1955% 961% 1962% 
963 1972% 197% 2001s 2003% #2006% #20128 #2013% ##2015% #2016% #2029% 2030% #2032% 
2033% 2058% 2060% 72063% 2068% 2069% 2071% 2072% ##2076% #2080% ##2081% #2082%  2091% 
2093% 2096% 2101% 2102% 2108% 21128 21148 21158 2134% 21368 21408 2145 21498 
2150% 2151 2155% 2156% 2157 21828 «821848 2188% 2196% 21978 22008 #2201% 22253 
2226% 2254% 2256% 2260% 2264 2265% 2268% 22708 2271% #=2279% =2280% 2281 2302% 
Z2304% 22308% 312 2317% 8 2318% 2326% 2327% 2328 2337% 8 2349% 23518 2354% 23623 
2363% 2365% 2366% 24138 2415% 24188 2425% 24268 2428% 2429% 2550% 2552% 25563 
Z2563% 2569% 2577% 2583% 2603% 2606% 2612% 2644% ##2646% 2650% 2659% 2660%  2665% 
2666% 2680% 2693% 3568% 3581% 3587% J588%  3589% 

TXDBUF 001732 10518 1366% 1419% 1472% 1525% 1578% 1631% 1685% 1738% 1791% 1844% 1897% 1950 
Z2148% 2192% 2217% 22678 2313% 2561% 2592% 2657% 2670% 3572% 

TXDONE= 000200 805% 998% 

TXINTE= 000100 806% 9998 

TYPE = 104401 1202 1342 2735 2738 2743 2814 2816 2884 2927 2944 3030 3061 3108 
3116 3152 3169 3171 3174 3176 3180 3187 3251 3301 35268 

TYPOC = 104402 3160 3184 35278 

TYPON = 104404 35298 

TYPOS = 104403 35288 

USER = 000000 8128 10058 

vOIO0 = 000001 779% 972% 

WROCNT 014154 3O034%  3063% 30668 

ZERO 012456 27498 

SAPTHD 002136 1108 11148 

SASTAT= S225%% U 537 

SATYC  Q00024R E378 

SATY1 OOOOO0OR 557% 

SATY3 OO000ER 5378 2869 

SATY4 O00016R 5378 8 3121 

SAUTOB 001434 8408 

SBASE 001602 9188 

SBDADR 001422 8358 

SBDDAT 001426 837% 

SBELL 001516 869% 3108 3136 

$COW1 001606 9208 

SCOW2 001610 9218 

SCHARC 013370 2886% 2896% 2903 2912% 29178 

SCKSWR= &2222% 3532 

SCNTAG 001400 8238 1132 1133 1141 1147 1148 

scmi = 0 855% 8568 8578 858% 859% 860% 861% 

SCNZ2 = 000014 855% 8568 8578 8588 859% 860% 8618 

SCM3 = OOOODLE 8534 855 

scm os 8618 862% 865% 864% 865% 866% 867% 

SCPUOP 00155% 8928 

SCRLF 001523 8718 2885 2920 3116 3136 3152 3171 3176 3180 

SODWO 001612 9228 

SD0Wi1 001614 9238 

SO00W10 001636 9328 

S$00W11 001640 9338 

SO00W12 001642 9348 

SOOW13 001644 9358 

S$D00W14 001646 9368 

$00W1S5 001650 9378 

SO0W2 001616 9248 

SO0W3 001620 9258 

SODWY #001622 9268 
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DZDUUB. M11 31-MAY-77 SEQ 0079 
SD0WS 001624 927% 
$D0W6 001626 928% 
$D00N7 001630 9298 
S$DDW8 001632 9308 
SDDW9 001634 931% 
SDEVCT 001536 8838 
$DEvM 001604 919% 
GE 000002 S358 
SENDAD 012714 1095 27918 
SENV 001546 537 8888 1204 2864 2925 3118 
SENVM 001547 537 889% 1169 2866 2871 
SERFLG 001403 8268 1178% 2783x% 3103% 3136 3303x% 3419 3463 3465 3471x% 3495 
SERMAX 001415 8328 1149% 3465 3u88x 3495 
SERROR 014230 1141 31028 
SERRPC 001416 8338 1081 1084 1180% 2782k 3110K 3111k 3112 3136 3158 3304% 3434% 
SERRTB 001652 10238 3166 
SERRTY 014450 31518 
SERTTL 001412 8308 1179k% 3109k% 3136 
SESCAP 001514 8688 1148% 3131 3133 3136 3487x 
SETABL 001546 8878 
SETEND 001652 9408 1120 
SFATAL 001530 537% 8808 
SFFLG O00244R 53748 
SFILLC 001456 8518 2889 2920 
SFILLS 001455 g50# 2920 
S$GDADR 001420 2348 
$GDDAT 001424 8568 
SGTSWR= £3%2%% 3531 be 
SHIBTS 002136 11158 
SICNT 001404 8278  3478x 3479 348ik 3494 
SINTAG 001435 S418 
SITEMB 001414 8318 3112% 3120 3136 3155 
SLF 001524 872% 2920 3136 
SLFLG O00243R 53782 
SLPADR 001406 8288 1150% 2796% 3440k 3469k 3485x 3490 3494 
SLPERR 001410 8298 1151x 3130 3469 3486x 3494 
SMADR1 001560 9058 
9098 
912% 
9158 
8788 1116 1120 1168 2864 3118 3484 
R998 
907% 
9108 
9138 
11168 
5378% 
537% 885% 
537% 8868 
537% 8798 
9008 
908% 
9118 
914 
3482 34948 
5358 27278 
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DZDUUB. M11 31-MAY-77 O09: 50 

SNULL 001454 8498 2891 2920 

SNUTST= 000000 13538 14068 14598 15128 15658 16188 16728 1725 17788 18318 18848 19378 19978 
20568 21318 21798 #22518 22998 23478 24108 25458 26428 26898 

SOCNT 015026 3223% 3252% 32658 

SOMODE 015030 3218% 3222% 3227 3230% 3241% 32678 

SOVER 016652 3443 3446 3462 3470 3480 34898 

SPASS 001534 8828 1168% 2786% 3476 3495 

SPASTMH 002144 11188 

SPWRON 015032 1145 32718 

SQUES 001522 870% 2920 3136 

SROCHR= S2RR2% U 3532 

SRODEC= S22RR% U 3532 

SROLIN= S2RRR% U 3532 

SROOCT= keRRz% U 3532 

SREGAD 001460 8538 

SREGO 001462 8558  3015% 3020 

SREGi 001464 8568 3014% 3021 

SREGZ2 001466 8578 3013% 3022 

SREGS 001470 8588 3012% 3023 

SREGY 001472 8598  3011% 3024 

SREGS 001474 8608 3010% 3025 

SRZ2A RRRRKX OU 3532 

SSAVRE= X2RRR% U 3532 

SSCOPE 016340 1139 34288 

SSETUP= 000017 11218 1138 1139 1141 1143 1145 1147 1148 1150 3103 3128 3135 3429 

SSTUP = 177777 11218 

SSVLAD 016616 S454 S484 

SSVPC = 002136 10938 1098 

SSWR 177400 5268 867 868 869 1147 1148 1150 1151 1355 1408 1461 1514 1567 
1620 1674 1727 1780 1833 1886 1939 1999 2058 2133 2181 2253 2301 
2349 2412 2547 2644 2691 3094 3095 3096 3097 3098 3106 3113 3125 
3128 3136 3420 3421 3422 3423 3424 S445 3457 3459 3460 3463 3464 
3465 3472 3473 3474 3486 3489 3494 

SSWREG 001550 s908 1171 

SSWRMK= 000000 3424 3425 3461 

STESTN 001532 8818  3484x 

STIMES 001512 8678 1147% 3472% 3479 3482k% 3494 

STKB 001446 846% 2810 2933 2941 S444 

STKS 001444 845% 2808 2931 3442 

sTMPO 8=©6—.001476 861% 

sTMP1 001500 8628 1367% 1373% 1420% 1426% 14738 1479% 1526% 1532k% 1579% 1585% 1632% 1638% 
1686% 1692% 1739% 1745% 1792% 1798% 1845% 1851% 1898% 1904% 1951% 1957% 2018% 
2024% 2039% #2074% #=%2078% #=#$(2104% 21108 2266% 2274% 2314% 2321% 2374% 23858 24338 
2454% 2468% 2515% 2526% 3583% 3595 3605x% 3607% 3612 3622% 3624% 

sTmP2 001502 8638@ 2105% 2106% 2113% 2116 3582% 3584x  3585% 3586% 3587 3595x% 3599%  3612% 
3616% 

sTMP3 001504 8648 3596% 3600% 3603% 3613%  3617%  3620% 

STMP4Y 001506 865% 

sTmPS 001510 8668 

STN = 000030 5378 1353 13558 1406 14088 1459 14618 1512 15148 1565 15678 1618 1620% 
1672 16748 1725 17278 1778 17808 1831 18338 1884 18868 1937 19398 1997 
19998 2056 2058% 2131 2133% 2179 21818 2251 22538 2299 23018 2347 23494 
2410 24128 2545 25478 2642 26448 2689 26918 

STPB ate 8488 2909% 2920 2941% 

STPFLG 001457 8528 2858 2920 

S$TPS 001450 8478 2907 2920 2939 
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DZ0UUB. M11 31-MAY-77 CROSS REFERENCE TABLE -- USER SYMBOLS SEQ 0081 
STRAP 016674 1143 35038 

STRAPZ 016716 35148 3525 

STRP = 000015 seane 35278 35288 35298 35308 3532 35338 35348 35358 35368 35378 35388 35398 
STRPAD 016730 3508 35258 

STSTN 002142 11178 

STSTNM 001402 Ry My 1336 1339 2781x 3105 3136 3142 3419 3440 3461 S483% 3484 
STYPBN= X322%% U 3530 

STYPOS= S222%% U 3530 

STYPE 013112 537 28588 3518 3526 

STYPEC 013324 2888 2895 2902 29078 2908 

STYPEX 013372 2913 2915 29188 

STYPOC 014630 32218 3527 

STYPON 014644 3220 32238 3529 

STYPOS 014604 32168 3528 

SUNIT 001540 8848 

SUNITM 002146 11198 

SUSWR 001552 891% 1206 

SVECT1 001576 9168 

SVECT2 001600 917% 

SXTSTR 016422 3436 34488 

SOFILL 015027 3217K% 3221% 3231 3266% 

SYOCAT= KRxKKK U 3115 3445 

= 017436 537% 571% 684% 6878 692% 747% 7488 822% 873 10798 1093 10948  1096% 


1c988 1104 1105@ 11078 11098 1136 1150 1151 1382 1393 1435 1446 1488 
1499 1541 1552 1594 1605 1647 1658 1701 1712 1754 1765 1807 1818 
1860 1871 1913 1924 1966 1977 2021 2036 2044 2086 2119 2146 2152 
2158 2205 2212 2232 2237 2284 2331 2379 2382 2388 2393 2442 2445 
2457 2462 2471 2474 2478 2487 2490 2495 2498 2503 2520 2523 2529 
2534 2567 2573 2581 2587 2596 2601 2610 2616 2621 2626 2674 2678 
2705 2717 2920 3136 31908 3282 3298 34O9R 834118 8 S4ish = =8=6—3494 


.BEGIN 003310 1198 1209 1212 13278 2798 
.CONVR 014004 30308 3538 

. EOP 012374 27338 

. INSTE 013502 29448 3534 

. INSTR 013374 29238 3533 

. INST1 013414 29278 2936 2946 

. MSG 013416 2810 2811% 2812 2923k 29288 
.PARAM 013512 29518 3535 

.PFAIL 015032 1175 32728 3293 

.RESOS 013752 30208 3537 

.SAVOS 013712 3006 #3536 

. SCOPE 016340 34328 

. SCOP1 013070 28368 3532 

.SETFL 014162 30768 3087 3539 

. START 002152 688 11308 1182 2747 

.SASTA= BEzzzR VU 537 


.$X = 002136 11048 1109 


os 
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COMMEN 681% 

ENDCOM 6818 

ERROR 575% 1383 1394 1436 1447 1489 1500 1542 1553 1595 1606 1648 1659 1702 1713 
1755 1766 1808 1819 1861 1872 1914 1925 1967 1978 2022 2037 2045 2087 2120 
2147 2153 2159 2206 2213 2233 2238 2285 2332 2380 2383 2389 2394 2443 2446 
2458 2463 2472 2475 2479 2488 2491 2496 2499 2504 2521 2524 2530 2535 2597 
2602 2622 2627 2675 2679 2706 2722 

ESCAPE 6818 

GETPR I 681% 

GE TSHR 681% 

MULT 681% 

NEWTST 6818 1353 1406 1459 1512 1565 1618 1672 1725 1778 1831 1884 1937 1997 2056 
2131 2179 2251 2299 2347 2410 2545 2642 2689 

POP 537 681% 

PRGEND 559% 2726 

PRGFRT 538% 560 

PUSH 537 681% 

PUSSYF 556# 2563 2576 2605 

REPORT 526% 681% 

RSE TUP 5438 2001 2058 2091 2349 2413 


sc 

SCOPE 5768 1354 1407 1460 1513 1566 1619 1673 1726 1779 1832 1885 1938 1998 
2132 2180 2252 2200 2348 2411 2546 264 3 2690 2733 

$¢Ci 5358 3491 

SE TPR | 6818 

SETTRA 5268 35188  3&27 3528 3529 3532 3533 3534 3535 3536 3537 3538 3539 

SE TUP 681% 1130 

SKIP 6818 

SLASH 6818 

SPACE 681% 

STARS 537 6818 818 873 876 1091 1101 1103 1110 1353 1406 1459 1512 1565 
1672 1725 1778 1831 1884 193? 1997 2056 2131 2179 2251 2299 2347 2410 

| 2642 2689 2843 3090 3146 3193 3416 3497 

SWRSU 6818 11528 

TRMTRP 35188 

TSE TUP 544e 1355 1408 1461 1514 1567 1620 1674 1727 1780 1833 1886 1939 2134 
2254 2302 2550 2644 

TYPBIN 6818 

TYPDEC 681% 

TYPNAN 681% 


TYPOCT 6818 3158 3182 


5538 
SE OP 5368 2726 
SGETFL 5358 1243 1308 1312 1316 1320 
SGE TPA 5358 1222 1233 1253 1279 1331 
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SGETSY 5358 1290 

SHE 526% 560 

SINSTR 5378 2920 

$1S0B 5518 

SMATCH 5488 

SMRR 542% 

SMRRW 5408 

SMRW 5418 

S$NSG 5378 3309 

SNEED 558% 3136 

SPARAM 5378 2948 

SPFAIL 5378 3268 

SPOKE S468 1270 1376 1423 1429 1476 1482 1529 1535 1582 1588 1635 1641 1689 1695 
1742 1748 1795 1801 1848 1854 1901 1907 1954 1960 2149 2155 2196 2199 2224 
2270 2278 2317 2325 2659 2664 

SPOKER 5478 2014 2028 2031 2067 2070 2100 2364 2427 

SRCNET 5588 

SRECAC 5468 

SREG 5378 3003 

SRESET 5398 1355 1357 1408 1410 1461 1463 1514 1516 1567 1569 1620 1622 1674 
1727 1729 1780 1782 1833 1835 1886 1888 1939 1941 2001 2003 2058 2060 
2093 2134 2136 2182 2184 2254 2256 2302 2304 2349 2351 2413 2415 2550 
2644 2646 2693 

SRXACT 545% 

SSCOPE 5358 3414 

SSCOP 1 5368 2833 

SSETFL 5358 3070 

SSETVE 5308 681 

SSTART 5358 1122 

SSTRIP 552% 

SSYMBO 526% 749 942 

SSYNCR 5488 2010 2423 

STRPAR 5548 1345 1398 1451 1504 1557 1610 1664 1717 1770 1823 1876 1929 

STSTNO 535# 1353 1406 1459 1512 1565 1618 1672 1725 1778 1831 1884 1937 1997 
2131 2179 2251 2299 2347 2410 2545 2642 2689 

SUN 1 BU 5388 

SVARIA 5338 691 

SWORDF 5498 

SWORDO 5488 

SWORDP 5508 

SSCMRE 8168 855 856 857 858 859 860 

SSCNTN 8168 861 862 863 864 865 866 

SSESCA 6818 

SSNEWT 6818 1353 1406 1459 1512 1565 1618 1672 1725 1778 1831 1884 193? 1997 
2131 2179 2251 2299 2347 2410 2545 2642 2689 

SSSET 35188 3527 3528 3529 3532 3533 3534 3535 3536 3537 3538 3539 

SSSETN 11688 

S$SSKIP 6818 

. EQUAT 5268 571 

. HEADE 5268 

. SETUP 526@ 1121 

. SACTI 526@ 1089 

. SAPTB 5268 8748 

. SAPTH 526@ 1099 
5268 537 
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. SCHTA 526% 816 

SEOP 526% 


-GERRO 5268 3088 
GERRT 5268 3144 


. SSCOP 5268 3414 
. STRAP 5268 3495 
. STYPE 526% 2841 
_STYPO 5268 3191 


ABS. 017436 000 


ERRORS DETECTED: O 


DZDUUB , OZDUUB /SOL /CRF =DZDUU1 /EQ: RUNE. me OZD0UUB 
RUN-TIME: 21 12 1 SECONDS 

RUN-TIME RATIO: 289/35=8. 2 

CORE USED: 30K (59 PAGES) 


